PROGRAMMING 




How does one use the programming systems for the Rice 
Computer? 

The solution to a private computing problem is a private 
system of programs and data. The diagram illustrates use of 
the Rice Computer programming systems in the construction and 
execution of a private system. 
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A private system consists of: 

the operating system private data 
with library programs and programs 
I So, private programs and data are added to SPIREL to form a private 
system. 

SPIREL is the operating system for the Rice Computer. It may 
be used from the console or dynamically by private programs for 
such operations as: 

reading \ 

correcting I _ , , 

S of programs and data 

printing I 

punching J 

execution of programs 
Dynamic storage control is provided automatically by SPIREL, and 
various debugging aids are available in the system. 

The SPIREL system is composed of SPIREL and a library of 
programs which perform functions likely to be useful to private 
programs. Any private program in a private system built on SPIREL 
may use any library program as a subroutine. The library provides 
functions such as: 

trigonometric functions 

vector and matrix operations 

formatted printing and plotting 
The construction of a private system entails the preparation 
of private programs and data. PLACER is the programming system 
used for preparation of system elements; it has nothing to do with 
system execution. It works on one program or one data tape at a 
time, and provides the following operations: 

editing \ 

listing on the printer \ of programs or data 

punching J 

translation of programs from symbolic to executable 
form and vice versa 
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3 
Programs are written in a symbolic langauge: 
API, the assembly language in which statements correspond 

one-to-one with instructions to be executed by the computer 
or Genie, the formula language in which mathematical notation is 

employed and which contains as a subset the AP2 assembly 
language 
PLACER contains the API assembly program and the Genie compiler. 
API translates programs written in the API language to executable 
form. The Genie compiler translates programs written in the Genie 
formula language to executable form. 

The magnetic tape system provides 

filling of memory from a block on magnetic tape 
dumping of the contents of memory onto magnetic tape 
SPIREL and PLACER are on magnetic tape and are read into memory by 
use of the magnetic tape system. Once a private system has been 
composed in memory, the magnetic tape system may be used to write 
the system onto tape. Subsequent use does not require loading of 
private items from paper tape . 
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FUNCTION 



The PLACER system is designed to facilitate preparation of 
programs for the Rice Computer. 

Programs exist on paper tape in two forms: 

symbolic -- in the assembly language or Genie language, 
absolute -- in machine language, as translated from sym- 
bolic form from assembly or Genie language, ready to 
be loaded for execution. 
PLACER operations which may be applied to program tapes are: 
r ead symbolic tape -- forming "tape image" in memory 
edi t image -- change, insert, or delete lines in image, 

per edit instructions on paper tape 
punch image -- on paper tape 
list image -- on printer 
check symbolic tape -- against image 
trans late image -- assemble or compile as appropriate, 

and produce absolute tape 
back- trans la te absolute tape -- read absolute tape, 

"back translate" into symbolic assembly language, 
forming image as if symbolic tape had been read. 
PLACER operations may also be applied to data tapes which 
are manually prepared on the flexowriter. In this case, the 
translation operations would not be meaningful. 



OPERATION 

J When PLACER is read into memory from magnetic tape program *340 

is executed, and the main PLACER stop 

(I) : 00 HTR CC 

occurs. One or several PLACER operations may then be designated in 

the sense lights: 

SL read symbolic tape 

SL 2 edit 

3 
SL punch (edited) symbolic tape 

4 
SL list (edited) symbolic tape 

5 

SL check (edited) symbolic tape punched 

SL translate (edited) symbolic tape 

7 
SL back-translate absolute tape 

15 



| SL — run with SPIREL 



SL -SL run with specified system tape block 

The original tape to be processed should be placed in the reader. 

7 1 

SL is used if this tape is absolute, and SL is used if it is 

7 1 
symbolic. It is not meaningful to elect both SL and SL operations 

in PLACER. 

Pushing CONTINUE at the main PLACER stop with more than one 

operation designated causes the operations to be carried out in the 

following order: 

1 7 

SL or SL read symbolic tape or read absolute tape and 

back-translate to API symbolic, forming symbolic image 

in the machine 

2 • . . 

SL wait for edit tape, then edit image 

3 

SL punch (edited) image, generating symbolic tape 

4 - 

SL list (edited) image on the printer 

5 • • 

SL check symbolic tape against edited image if tape is 

ready in the reader; if tape is not ready and transla- 
tion operation is designated, go on to translation and 
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return to check after translation; if tape is not ready 
and translation is complete or not designated, wait for 
tape; if tape does not check, do not exercise run option 

SL translate edited image, generating output on the 

printer and absolute tape 

SL -SL obtain designated block from magnetic tape for 

running, SPIREL if only SL 

1 7 

If only one operation is designated in SL through SL at the 

main PLACER stop, pushing CONTINUE will cause a stop for that 
operation : 

(I) : Oi HTR CC 
for SL on. Then options for the particular operation may be 
designated in the sense lights before pushing CONTINUE to cause the 
operation to be carried out. 

The PLACER operations and the options available for each are 
explained in detail in the succeeding sections. 
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READ 



SL , READ 

The symbolic tape to be read must begin with a carriage return. 
All characters beyond the last cr on the tape are ignored by the 
system. When the reading is complete, the system has in the machine 
a tape image. 

Options 
! I f only SL is turned on at the main PLACER stop so that only 
the READ operation is designated, the stop 

(I) : 01 HTR CC 
occurs. READ options may then be designated in the sense lights 

as follows: 

15 

SL causes reading to terminate at the first double carriage 

return punch. A double carriage return is any two 
carriage returns not separated by a printable character. 
Here printable characters include those represented by 
a backward arrow; nonprintable characters include only 
the space, the tab, case punches, and the carriage 
return itself. 
Pressing CONTINUE with no tape in the reader will cause exit 
to the console typewriter. A program may then be typed in, using 
exactly the format used on the flexowriter. The backspace key will 
not properly backspace over the characters "^, ^ , £" . It will not 
backspace beyond carriage returns. To erase a line, type a question 
mark' (?) . To erase the entire input text, type the sequence ???. 
Depressing the "index" key will cause exit of the read option. 
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SL 



EDIT 



The stop 

(I) : 02 HTR CC 
occurs. The edit tape is placed in the reader. Pushing CONTINUE 
causes this tape, which must contain on ly the corrections for the 
tape image in the machine, to be read. When reading is complete, 
PLACER's tape image in the machine is edited. 

Each edit of a tape image requires specification of a range 
of lines in the tape image to be affected by the edit. The carri- 
age return numbers for the original image are used for this purpose. 
A line in a symbolic tape is terminated by a carriage return, these 
being numbered from 1 on the listing. The edit range is specified 
by initial carriage return i and f_inal carriage return f, inter- 
preted as from and not including carriage return i through carriage 
return f. Such a range will be denoted (i,f) here. 

Each edit is one of the following: 

• replacement of lines ■ (i.,f.) in the image with n_ (octal) symbo- 
lic lines read from the edit tape. The specification is punched 

(l.c.)i(sp) f (sp)n(cr) 
The n lines of the replacement follow the specification on the 
edit tape, and each line is terminated by a carriage return. 

• de le tion of lines (i_,f_) in the image. The specification 
i s punche d 

(l.c.)i(sp)f (sp)O(cr) 
No symbolic lines accompany this specification on the edit tape. 
Deletion is just the case of replacement with n = 0. 

insertion in the image after carriage return i_ of n_ (octal) 
symbolic lines read from the edit tape." The specification is 
punched 

(l.c,)i(sp)i(sp)n(cr) 
Insertion is just the case of replacement with i = f , a null range 
to designate position only. 

e "move" for replacement of lines (i ,f ) in the image with 
lines (if) in the image. The specification is punched 



(i.c.)i 1 (sp)f 1 (sp)i 2 (sp)f 2 (cr) 



EDIT 
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No symbolic lines accompany this specification on the edit tape. 
The lines (i„,f„) are deleted from their former position. 

o "move 7r "~for" insertion in the image after carriage return 1^ 
of lines (i^f^) in the image. The specification is punched 

(l.c.Ji^sp) i-^sp) i 2 (sp) f 2 (cr) 

No symbolic lines accompany this specification on the edit tape. 
The lines (i^f,,) are deleted from their former position. 

Edit specif" ications may overlap since the carriage return 
numbers are preserved in all edit operations internally. Numerous 
edits of the tape image are possible using the latest carriage 
return numbers . 

There are no EDIT options. 



Pressing CONTINUE with no tape in the reader at the edit halt will 
cause exit to the console typewriter. Edits may then be typed ex- 
actly in the format used on the flexowriter, being certain to type 
an initial carriage return before the first edit specification. 
If this option is reached accidently, depressing the index key 
immediately will cause the edit halt to reappear. The index key 
is used also to exit the edit mode. As in the read option a 
question mark (?) will erase a line. Do not , however, use the 3 
question mark sequence . 
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PUNCH 

SL 3 , PUNCH 

The tape image (symbolic version) is punched out on paper with 
corrections if editing was done. It is advised that the CHECK option 
always be used with this operation. 

There are no PUNCH options. 
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LIST 

SL 4 , LIST 

The tape image in the machine is listed on the printer with 
carriage return numbers. If the tape begins with 'DEFINE' (as 
do Genie program tapes) , superscript and subscript lines will be 
printed above and below the base line. Other tapes will be listed 
with more lines per page, one line per carriage return number 
with superscript printed as the character ' t' and subscript as '1 ' . 
A lower case Roman letter after f is printed as ' . upper case 

letter' . 

If a line ends in a superscript or subscript position, it is 
followed by a message noting the displacement. 

Options 

If only SL 4 is turned on at the main PLACER stop so that only 

the LIST operation is designated, the stop 

(I) : 04 HTR CC 
occurs. LIST options may then be designated in the sense lights 

as follows: 

SL 13 forces printing of separate superscript and subscript lines, 
SL 15 causes double spacing on the listing. 
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SL , CHECK 

If the tape to be checked is not in the reader, the stop 
(I) : 05 HTR CC 
occurs. Pushing CONTINUE causes the tape that is read to be com- 
pared to the tape image in the machine. An error print is given 
if the comparison fails. 

There are no CHECK options 



TRANSLATE 

SL 6 , TRANSLATE 

The tape image in the machine is translated, by the Genie 
compiler if it begins with 'DEFINE' , by the assembly program 
otherwise. 

Both translation procedures produce output on the printer 
and absolute program tapes. Details are given in the literature 
on the assembly and Genie languages. 

Assembly Options 

I If only SL is turned on at the main PLACER stop so that only 

the TRANSLATE operation is designated, the stop 

(I) : 06 HTR CC 

occurs. TRANSLATE options for assembly may then be designated in 

the sense lights as follows: 
9 
SL causes assembly output on the printer to be double spaced. 

SL suppresses punching of the absolute tape. 

13 
SL causes punching of a self-loading absolute tape. Such 3S 

a tape will load by using the LOAD switch on the console. = 

See assembly language literature for more details. = 

Note that SL and SL are turned on automatically and should be 

left on. 

Also, if TRANSLATE is selected with other operations at the 

main PLACER stop, assembly options may be designated in the in- 

I dicator lights (IL 9 , IL 11 , IL 13 as above). 

Compilation Options 
| If only SL is turned on at the main PLACER stop so that only 
the TRANSLATE operation is designated, the stop 

(I) : 06 HTR CC 
occurs. TRANSLATE options for compilation may then be designated 
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TRANSLATE 
2 



in the sense lights as follows: 

12 
SL punches the internal portion of the Symbol Table, in- 
cluding internal names and statement labels , as a 
program tail. See SPIREL-CONSOL COMMUNICATION for 

details on use. 

13 

SL suppresses output of absolute tape. 

SL provides condensed compilation on the printer — only 
the first instruction of each command sequence and no 

Symbol Table. 

15 

SL " causes output during compilation of intermediate code 

forms — sets and phase 1 code. This is rarely of 
interest to the general user. 
Also, if TRANSLATE is selected v/ith other operations at the 

main PLACER stop, compilation options may be designated in the 

12 13 14 15 
indicator lights (IL , IL , IL , IL as above) . 
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BACK-TRANSLATE 

SL ? , BACK-TRANSLATE 

If the absolute tape to be translated is not in the reader, 
the stop 

(I) : 07 HTR CC 

occurs. Pushing CONTINUE causes the absolute tape to be read, 

and a symbolic tape image of an equivalent API program is construct' 

ed in memory. This image is no different from one generated by the 
READ operation. 

Details of Back-Translation 



Several types of program tapes are recognized by the back- 
translator which generates an appropriate ORG pseudo-order in 
each case : 

program to be loaded by SPIREL at a fixed location 
program to be loaded by SPIREL with numbered or named 
c odewor d 

program to be loaded by SPIREL as an element of a 
numbered or named array 

program to be loaded with the console LOAD switch at 
a fixed location or at the setting of B6 

In normal use, the process of back-translation takes place 
in two phase s : 

1) flow analysis from word 1 of the program to determine 
which words may be executed as instructions and which are in- 
ternal data words or constants 

2) cons true tion of a symbolic tape image to represent 
the program, with OCT ps eudo -orders for constants and symbolic 
labels only on lines which are referenced by instructions 
within the program 

Information is passed from the first phase to the second by tagging 
the words of the program as they are classified. The tag conventions 

ar e : 
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no tag on data words not explicitly referenced in the program 
tag 1 on data words explicitly referenced in the program and 
on all cross-reference words 

tag 2 on instructions not explicitly referenced in the program 
tag 3 on instructions referenced in the program 

Tag may also indicate an instruction which cannot be identified 

as such . 

It is possible for a program to be written in such a way that 

the flow analysis will not distinguish properly between instructions 

and constants. Three of the most common programming situations 

which cause analysis problems are: 

• entry points at other than the first instruction of a 
program 

• use of transfer vectors or computed transfers within 
a program (e.g., TRA CC+B3) 

• use of the X register, as in JMP in the operation field 
or CC+X in the auxiliary field 

BACK-TRANSLATE options (discussed below) make it possible to speci- 
fy as executable instructions those words which would not otherwise 
be identified as such. 

Options 

7 
If only SL is turned on at the main PLACER stop so that only 

the BACK-TRANSLATE operation is designated, the stop 

(I) : 07 HTR CC 

occurs. BACK-TRANSLATE options may then be designated in the sense 

lights as follows: 

12 
S L suppresses flow analysis; tape image construction is 

performed on the basis of the tags on the program as 

read . 

13 
S L causes the back- trans la tor to accept a list of words 

which must be identified as instructions. Immediately 

after the program tape is read, the stop 

(I) : 13 HTR CC 
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occurs. A tape listing words to be identified as 
instructions is read. The format is 

[cr] AAAAA [cr] BBBBB [cr] CCCCC 

where [cr] is a 'carriage return 1 punch and AAAAA, BBBBB, 
CCCCC, ... are five-digit (octal) relative locations in 
the program. Note that it is only necessary to specify 
the first word of a block of instructions and analysis 
will find the others; a block is ended by an uncondi- 
tional transfer instruction, either explicit or implicit. 

14 
SL causes punching of the program with tags after flow 

ana lys is . 

15 
S L suppresses construction of the symbolic tape image. 



RUN 

SL 10 -SL 15 f RUN 

After options designated by SL through SL are complete, the 
octal number NN in SL -SL designates that block NN is to be 
loaded from the system tape. The following is a special case: 

NN = 1, or SL 5 only, for the closest SPIREL 
In any case, the system obtained from magnetic tape is "fresh"; 
the program operated on by other PLACER options is not loaded. 
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Operation Codes . „ „ 

Class 0, Tests and Transfers 

Class 1, Arithmetic 

Class 2, Fetch, Store, Tags 

Class 4, B-Registers, Lights, Special Registers, Shifts 

Class 5, Logic and Fast Registers 

Class 6, Input-Output 

Class 7, Analog Input, Shifts, Delays 

Summary of Operation Codes 
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BSS and BES 

BCD, FLX, REM 

DEC and OCT 

REF 
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SYMBOLIC CODING 

The absolute machine language of the Rice Computer is described 
in detail in the Rice Computer Manual. In practice, programs are 
not written in the absolute language of the computer but in a 
symbolic language. A language which provides symbolic notation 
for instructions, or commands, that correspond one-for-one with 
absolute machine instructions is called an assembly language . The 
program which translates assembly language into machine language 
is called an assembly program . 

Use of the assembly language for the Rice Computer depends on 
a knowledge of the absolute machine instruction format, a familiar- 
ity with the registers of the computer, and a general acquaintance 
with the instruction repertoire -- all explained in the Rice 
Computer Manual. Two forms of the Rice Computer assembly language 
are avai lab le : 

API, for independent use 

AP2, for use within Genie programs 
The corresponding assembly programs have the same names: 

API, an independent assembly program 

AP2, a subset of the Genie compiler 

The two assembly languages are very similar. The major dis- 
tinction concerns octal and decimal numerals. In API, all 
numeric constants are assumed to be octal unless immediately 
preceded by the special symbol "d", meaning decimal. In AP2, all 
numeric constants are assumed to be decimal, except when octal 
form is indicated by a plus sign immediately preceding the octal 
number . 

In the following discussions, M stands for the final number 
formed in the last 15 bits of I (the instruction register) after 
all specified indirect addressing and B-modif ica tion has taken 
place; and if Q is any machine location, then (Q) stands for 
the contents of location Q. 



INSTRUCTION FORM 



The general form of an API or AP2 instruction and its cor- 
respondence to a machine - langua ge instruction as explained in the 
Rice Computer Manual is 

bits |l 6|7 2 1J2 2 27|2 8 3 9|40 



lO 



F2 



i F3 r 



54 tag bits tl t2 



FT 



LOCN 

cr 



SETU 
|lst tab 



"1 

OPN 

|2nd tab 



"4—1 I r- 

ADDR+MOD, AUX TAG 

|3rd tab |4th tab 



Here "cr" denotes "carriage return", and "tab" denotes "tabulate" 
on the flexowriter used for preparation of input to the assembly 
pro grams . 

LOCN gives the symbolic label (if any) on the instruction. 
SETU corresponds to Field 1: bring a "fast" register to U; 

then inflect (U) . 
OPN corresponds to a Field 2 operation chosen from one of 

s even c la s s es . 
AUX corresponds to Field 3: alter a B-register, send (U) or 
(R) to a "fast" register, send the M portion of I to a 
B-register, or clear R. 
ADDR+MOD corresponds to Field 4: compute the final address 
M, sending M to the last 15 bits of I; load S with M 
or (M) ; then inflect (S) . 

All fields may be symbolically coded. All fields but MOD and TAG 
may be coded numerically. 

If no TAG is to be specified, the 4th tab may be omitted. If 
no AUX operation is to be specified, the preceding comma may be 

omi t ted . 



TYPES OF SYMBOLS 

Precise definitions of the allowed symbols are as follows: 

Regis ter names . The following symbols are used as names of 
"fast" registers: 

A-series Z, U, R, S, T4 , T5 , T6, T7 

B-series CC , Bl, B2 , B3 , B4, B5 , B6, PF 
These may appear in SETU, ADDR+MOD , and AUX fields. The symbol I 
may be used in SETU and AUX. The special register names may be 
used in ADDR; these are 

SL sense lights 

IL indicator lights 

ML mode lights 

TL trapping lights 

P2 second pathfinder 

X increment register 

TT "to-tape" register 

FT "from-tape" register 

These symbols may be used only as register names. 

Special characters . *, a(APl) or #(AP2), d(APl), + , -, |, -, 
(, ), "tab", "cr", and , (comma). 

Operation codes . These include the mnemonic operation codes 
in the assembly vocabulary, ps eudo -opera tion codes (API only), 
mac ro -opera tions (API only), and general symbols defined by the 
user as operation codes with a LET (in Genie for AP2) or an EQU 
(in API). All of these areas are covered in later discussions. 

Gene ra 1 names . In AP2, a private name may be 

a single lower case Roman letter 
or an upper case Roman letter, followed by upper case Roman 
letters, followed by lower case Roman letters, 
followed by numerals. 
In API, a private name may be 

an upper case Roman letter, followed by upper case Roman 
letters, followed by numerals. 
Spaces may not appear in names. Any number of characters may form 



TYPES OF SYMBOLS 
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a name; AP2 will retain the first four if lower case Roman letters 
are used, the first five otherwise; API will retain the first six. 
The following are general names in API and AP2 : B, M3 , COMM , ZETA2. 
The following are general names in AP2 , but not in API: b, Comm, 
Zeta2. General names may appear only in the LOCN and ADDR fields. 



INSTRUCTION CONTENT 

Each field of the symbolic instruction has a well-defined 
form. If this form is not recognized by the assembly system, a 
message is printed during assembly. The acceptable contents of 
each field are as follows: 

LOCN . This field may be blank or absolute or symbolic. Abso- 
lute LOCN fields are permitted only when an API program is being 
assembled in absolute form (see the ORG pseudo-order discussion). 
A symbolic LOCN field may contain any general name. A name may 
not appear in LOCN more than once in any one program. 

SETU . This field may be blank, absolute, or F, where F is 
an A- or B-series register name or "I", or any of the forms -F , 
|F|, or - ! F | „ If SETU is blank, "U" is understood and the octal 
equivalent 01 is inserted into the machine instruction. I sets 
U to the integer +1; -I sets U to the integer -1„ Note that Z 
sets U to all zeroes; -Z sets U exponent to zero and U mantissa 
to minus zero, or all ones. 

Examples: Bl | T4 | -PF -|r| Z -I 

If the T-flag is on for register Ti (i=4 ,5 , 6 ,7) , indirect 

addressing through Ti will occur when Ti is addressed in the SETU 
field. To denote this mode of addressing the * may be used before 
the register name: 

*Ti -*Ti | *Ti j - | *Ti | 

This is a symbolic convenience only, and these will be translated 
as : 

Ti -Ti J Ti j ~ | Ti | 

OPN . This field may be absolute or an operation code. In 
the case of conditional transfers, a symbolic operation has the form 
IF(CCC)TTT where CCC represents test conditions and TTT is a mnemonic 
for a transfer order. Other symbolic operation codes consist of 
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one or more 3-letter mnemonics. Special symbols such as ->, + , - 
",", and +i (where i is an octal integer) are sometimes permitted 
(see the section on operation codes). 

AUX . This field may be blank, absolute, or one of the forms 
U^F, R-.F, I-^Bi, Bi + 1, Bi-1, or Bi+X. Bi stands for one of the 
B-series register names; F is any A- or B-series register name; 
1 refers to the last 15 bits of the instruction register; and X 
is the increment register. As a special case, R->Z causes R to 
be cleared to zero. 

Example: U-T4 R-^PF I-Bl B2 + 1 B3 - 1 B4+X 

If the T-flag is on for register Ti (i=4,5,6,7), indirect 
addressing through Ti will occur when Ti is addressed in the AUX 
field. To denote this mode of addressing the * may be used before 
the register name: 

U-*Ti R-*Ti 
This is a symbolic convenience only, and these will be translated 
exactly as: 

U-Ti R-VTi 



ADDR+MOD . ADDR may be blank or absolute or symbolic, or the 
ADDR+MOD field may consist of an octal or decimal number to be used 
as an operand. MOD is either blank or one or more of the B-series 
register names, connected to ADDR by + signs. Special inflections 
control the IM and IA bits as follows: IM bit 1 is set to 1 (to 
load S with M instead of (M) ) whenever the symbol "a" (API) or "#" 
(AP2) appears, or whenever certain OPN mnemonics are used (see the 
section on operation codes). IM bits 2 (absolute value) and 3 
(minus) are controlled by the special forms -Q , |Q|, and -|q|, 
where Q is an allowed ADDR+MOD symbol. The IA (indirect addressing) 
bit is set to 1 whenever the symbol " *" appears in this field. 

If ADDR is symbolic, any A-series register name, any special 
register name, or any general name is acceptable. A general name 
may be followed by a relative part consisting of an integer preceded 
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by a + or - sign. 

If ADDR is absolute, any octal integer of not more than 5 
digits, or any decimal integer of absolute value not larger than 
32,767, is permissible. Any octal or decimal integer above these 
limits or any floating point decimal number is treated as the name 
of a location containing that number; storage space is reserved 
for it at the end of the program. In this case, no MODs are al- 
lowed, and only the absolute value and - inflections are meaningful, 

All characters appearing within parentheses in this field are 
ignored, so that an address field which is modified by the program 
may be conveniently noted. For example, (FWA)+B1+B2 is treated 
as Z+B1+B2. If a symbol appears in ADDR but never in LOCN , a blank 
location will be reserved at the end of the program. ADDR+MOD 
should not be blank; the Z character may always be used to pro- 
duce a zero field. 

Examples of equivalent API and AP2 ADDR+MOD fields are: 

API AP2 

COMM + 10 or C0MM+d8 COMM+8 or COMM++10 

-|A+Bl-dl2| or -JA+B1-14| - | A+B 1-12 | or -|A+B1-+14| 

a *Z E TA # *Z E TA 

d48 48 

-adl22+Bl -#12 2+B1 

B4+B5 B4+B5 

00500 +00500 

d2. 009027 2.009027 

777700000 +777700000 

30 24 

The only field which may be continued onto another line is 

ADDR+MOD, AUX by punching a "cr" followed immediately by three 

"tab ,f characters, so that continuation lines will follow under 
ADDR+MOD, AUX. 
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TAG . This field may be blank or symbolic. If no tag is de- 
sired, the 4th tab punch may be omitted. If a tag is desired, the 
TAG field must contain one of the mnemonics TGI, TG2 , or TG3 . The 
corresponding tag will be placed on the assembled instruction, 
printed on the octal listing, and punched with the instruction 
in checksum format. 



OPERATION CODES 

The most common Field 2 operations have been given names in the 
vocabulary of API and AP2 for convenience in coding. All Field 2 
operations are fully explained in the machine manual. The mnemonics 
defined in this section are summarized in a chart at the end of the 
section. These operation code symbols may not be used for any other 
purpose. Other Field 2 operations may be given general names by 
use of LET (in Genie for AP2) or EQU (API), and such symbols are 
then treated as operation codes throughout the program in which 
they have been defined. 



OPERATION CODES 
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• Class 0, Tests and Transfers 

In the list below, the symbols are followed by their octal 
equivalents and a brief explanation of their meanings; the 
indication "a ,#" means that the operation symbol automatically 
causes IM bit 1 to be set to 1 (to load S with M instead of (M) ) , 
since the operation indicated deals with M rather than with (S). 

The four unconditional transfers are represented by: 

oc ta 1 codes 

a ,# HTR 00000 Halt and transfer. Halt, setting CC 

to M when CONTINUE is pressed. 

a,# TRA 01000 Transfer. Set CC to M„ 

SKP 02000 Skip. Subtract (S) from (U) ; then 

increment CC by 1, skipping the next 
order . 

JMP 03000 Jump. Subtract (S) from (U) ; then 

increment CC by (X) , the increment 
register. 

Conditional transfers have the form IF(CCC)TTT where TTT is 
one of the above transfer mnemonics, and CCC represent one, two, 
or three test conditions joined by + or X signs. Use of the + 
sign indicates that the specified transfer is to occur if any of 
the conditions listed is satisfied; use of the X sign indicates 
that the specified transfer occurs only when all of the conditions 
listed are satisfied simultaneously. A single order may not con- 
tain both + and X signs. One condition from each of the first 
three groups may be specified; or a Group IV mnemonic may be com- 
bined with a Group III test as noted. If a TRA or HTR is used, 
the specified test is made on (U). If a SKP or JMP is used, the 
specified test is normally performed on (U)-(S). The exceptions 
to this rule are noted below Group II. 
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Group I 

octal co de 

PSN 00100 Positive sign. Is the sign bit of U 

equal to ? 

MOV 00200' Mantissa overflow. Is Indicator Light 

#4 on? 

EOV 00300 Exponent overflow. Is Indicator Light 

#5 on? 

NSN 00500 Negative sign. Is the sign bit of U 

equal to 1? 

NMO 00600 No mantissa overflow. Is Indicator 



Light #4 off? 



w 



NEO 00700 No exponent overflow. Is Indicator 

Light #5 off? 

Note that indicator lights are turned off when tested. 



Group II 

octal code 

ZER 00010 Zero. Is (U) mantissa all l's or all 

0' s ? 

EVN 00020 Even. Is bit 54 of U equal to zero? 

a,# SLN 00030* Sense light on. Are all the sense 

lights corresponding to l's in M on? 

NUL 00040 ' Null. Are all 54 bits of U zero? 

NZE 00050 Non-zero. Is (U) mantissa different 

from zero? 

ODD 00060 Odd. Is bit 54 of U equal to 1? 

a,# SLF 00070* Sense light off. Are all the sense 

lights corresponding to l's in M off? 

*Note that sense lights are not altered when tested. SLN and SLF 
tests are meaningful only with SKP or JMP orders, and in these cases 
no subtraction takes place. 

**If the NUL test is used with a SKP or JMP order, a logical compari- 
son is made as follows: wherever a bit of R is equal to zero, the 
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bits in corresponding positions of U and S are compared. If (U) 
is identical with (S) in each of these positions, the resulting (U) 
is null and the NUL portion of the test is satisfied. If the NUL 
comparison is not satisfied, the resulting (U) is meaningless. 



Group III 

octal code 
TGI 00001" 
TG2 00002* 



TG3 00003 
NTG 00004 



* 



NT1 00005 
NT2 00006 
NT3 00007 



Tag 1. Is Indicator Light #1 on? 

Tag 2. Is Indicator Light #2 on? 

Tag 3. Is Indicator Light #3 on? 

No tag. Are Indicator Lights # 1 , 
#2, #3 all off? 



No tag 1. Is Indicator Light #1 off? 

No tag 2. Is Indicator Light #2 off? 

No tag 3. Is Indicator Light #3 off? 

Note that indicator lights are turned off when tested. 



Group IV 

octal code 

POS 00110 Positive o_r zero. Is ( U) mantissa 

greater than or equal to zero? 

NEG 00510 Negative or zero. Is (U) mantissa 

less than or equal to zero? 

A 4 sign must be used when combining either of these mnemonics 

with a Group III test. 

octal code 



PNZ 04150 
NNZ 04550 



Positive and non-zero. Is (U) mantissa 

strictly greater than zero? 

Negative and non-zero. Is (U) mantissa 

strictly less than zero? 



A a sign must be used when combining either of these mnemonics 
with a Group III test. 
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e Class 1, Arithmetic 

In the list below, the symbols are followed by their octal 
equivalents and a brief explanation of their meanings. 

Any Class 1 mnemonic may be followed by -> or + 1 , to cause 
storing of the final (U) in the location addressed by M; by + 2, 
storing (U) at location (B6); or by +3, storing (U) at location 
M+(B6) . Octal codes may be joined by a '+' to Class 1 mnemonics 
for various special operations. If n is such an octal code, the 
combination appears as 

mnemonic +n in API 

mnemonic +4-n in AP2 

Any floating point mnemonic may be followed by +lj (j=0, 1, 2, or 
3), causing the last bit of (U) to be set to 1 (rounded) after 
the operation but before storing. After floating point mnemonics 
+4j suppresses normalization of the result, +5 j rounds and sup- 
presses normalization. Other options are given in the machine manual. 
The Class 1 mnemonics are as follows: 
Fixed point 

octal code 
ADD 10000 Add. (U)+(S)-U. 

SUB 10100 Subtract. (U)-(S)^U. 

BUS 14100 Reverse subtract. (S)-(U)-»U. 

MPY 10200 Multiply. (U)x(S)-4J,R (double length). 

IMP 10220 Integer multiply. (U)x(S)-»U. 

DIV 10300 Divide. Double length (U,R)^(S)-^U, 

2^1 Y. remainder -»R . 

VID 16300 Reverse divide. (S)-r(U)->U, 

2^ 7 X remainder ->R. 

IDV 13300 Integer divide. (U)-r(S)-.U, 

remainder ->R . 

VDI 17300 Reverse integer divide. (S)^(U)-»U, 

remainder -^R . 



F loa t ing Poin t 

oc ta 1 code 
FAD 10400 
FSB 10500 
BSF 14500 
FMP 10600 

FDV 10700 

VDF 16700 
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Floating add. (U)+(S)-^U. 

Floating subtract. (U)-(S)-»U. 

Reverse floating subtract. (S)-(U)-»U, 

Floating multiply. (U)X(S)-»U,R 
(double length) . 

Floating divide. Double length 
(U,R)4-(S)-U, 2 47 X remainder -*R. 

Reverse floating divide. (S)t(U)-«U, 
2^^X remainder ->R . 
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© Class 2, Fetch, Store, Tags 

In the list below, the symbols are followed by their octal 
equivalents and a brief explanation of their meanings; the indication 
"a,#" means that the operation symbol automatically causes IM bit 1 
to be set to 1 (to load S with M instead of (M) ) , since the operation 
indicated deals with M rather than with (S) . 

Any Group I or Group II mnemonic may be followed by a comma and 
any Group III mnemonic. In addition, any Group I or Group III mnemonic 
may be followed by - or +1, storing (U) with (ATR) at location M; or 
by +2, storing (U) with (ATR) . at location (B6); or any Group I, II, 
or III mnemonic may be followed by +3, storing (U) with (ATR) at 
location M+(B6). Note that all Group I and Group II mnemonics clear 
(ATR) unless followed by a Group III mnemonic. 
The Class 2 mnemonics are as follows: 
Group I 

octal code 

Clear and add. Bring (S) to U. 

Bring exponent to U. Exponent portion 
of (S) replaces exponent portion of (U) . 

Bring mantissa to U. Mantissa portion 
of (S) replaces mantissa portion of (U) . 

Bring left half to U. Left half of (S) 
replaces left half of (U) . 

Bring right half to U. Right half of 
(S) replaces right half of (U) . 

Bring inflections to U. Inflection 
portion of (S) replaces inflection 
portion of (U) . 

Bring address to U. Address portion 
of (S) replaces address portion of (U) . 

Bring all except address to U. Inflec- 
tion and left portions of (S) replace 
inflection and left portions of (U) . 

The "bring" mnemonics may be joined by commas to fetch more than 
one portion of a word. 
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octal code 


CLA 


21700 


BEU 


21000* 


BMU 


20700 


BLU 


21400* 


BRU 


20300* 


BIU 


20200* 


BAU 


20100* 


BNA 


21600* 
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Group II 



oc ta 1 code 

* 

RPE 20701 Replace exponent. Exponent portion 

of ( U) replaces exponent portion of 
word at location M. 

* 

RPM 21001 Replace mantissa. Mantissa portion 

of (U) replaces mantissa portion of 
word at location M. 

RPL 20301 Replace left half. Left half of (U) 

replaces left half of word at loca- 
tion M . 

•A. 

RPR 21401" Replace right half. Right half of (U) 

replaces right half of word at loca- 
tion M . 

RPA 21601 Replace address. Address portion of 

(U) replaces address portion of word 
at location M. 

* 
RPI 21501 Replace inflections. Inflection por- 
tion of (U) replaces inflection por- 
tion of word at location M. 

a,# STO 20001 Store. Store (U) at location M. 

The "replace" mnemoni cs may not be combined with each other. 



Group III 






oc ta 1 


code 


ST1 


20010 




ST2 


20020 




ST3 


20030 




WTG 


20040 




Group IV 






oc ta 1 


code 


NOP 


30000 




FST 


20041 





Set Tag 1. Set ATR to 1. 
Set Tag 2. Set ATR to 2. 
Set Tag 3. Set ATR to 3. 

With Tag. Do not change ATR, 



No operation. Do not alter (U) or (ATR) 

Fetch and store. Bring contents of 
location M to S; then store (U) with 
(ATR) at location M. 

RWT 21641 Replace address, with tag. Address 

portion of (U) replaces address portion 

of word at location M, without changing 

the tag on the word at location M. 
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Double Option 

Any Class 2 operation applied to U with original F4 address 

N may also be applied to R with origianl F4 address N+l by use 

of the mnemonic: 

octal code 

DBL 20004 Double. After operating on U with 

original F4 address N, apply same 
operation to R with original F4 
address N+l. 
Example s : 

BAU,DBL DATA 

loads the address portion of U from the location DATA and 
loads the address portion of R from the location DATA +1. 

ST0,DBL *ANS 

stores (U) through the codeword at location ANS and stores 
(R) through the codeword at location ANS +1. 

Use of the +2 store option with DBL stores (U) with (ATR) at 
location (B6), stores (R) with (ATR) at location (B6+1), and 
increments (B6) by 1. The +3 store option with DBL uses (B6) 
for both stores and does not increment (B6) . 

After a double operation, the M portion of (I) contains the 
final address used with R. 
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e Class 4, B-Registers, Lights, Special Registers, Shifts 

In the list below, the symbols are followed by their octal 

equivalents and a brief explanation of their meanings; the 

indication "a ,#" means that the operation symbol automatically 

causes IM bit 1 to be set to 1 (to load S with M instead of (M) ) , 

since the operation indicated deals with M rather than with (S). 

The Class 4 mnemonics are as follows: 

B -regi s ters 

oc ta 1 code 

a ,# TSR 40000 Transfer to subroutine. Set PF to 

(CC) ; then set CC to M. 

a,# SBi 4000i Set Bi. Set Bi to M, for ir=l, 2, 

o » • j " • 

a ,# SPF 40007 Set PF . Set PF to M. 

a ,# ACC 41000 Add to CC . (CC)+M-^CC. 

a,# ABi 4100i Add to Bi . (Bi)+M-»Bi, for i = l, 2, 

• • • y *■* * 

a ,# APF 41007 Add to PF . (PF)+M-PF. 

ERM 00020 Enter repeat mode. Turn on mode 

light #2. 

The ERM mnemonic is meaningful only when joined by a comma 

to one of the above Class 4 mnemonics. 

Lights 

octal code 

a ,# SLN 42000 Sense lights on. Turn on sense lights 

corresponding to l's in M. 

a ,# ILN 42001 Indicator lights on. Turn on indica- 

tor lights corresponding to l's in M. 

a ,# MLN 42002 Mode lights on. Turn on mode lights 

corresponding to l's in M. 

a,# TLN 42003 Trap lights on. Turn on trapping 

lights corresponding to l's in M. 

a ,# SLF 42004 Sense lights off. Turn off sense 

lights corresponding to l's in M. 

a ,# ILF 42005 Indicator lights off. Turn off indi- 

cator lights corresponding to l's in M, 



octal code 
a,# MLF 42006 

a ,# TLF 42007 
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Mode lights off. Turn off mode lights 
corresponding to l's in M. 

Trap lights off. Turn off trapping 
lights corresponding to l's in M. 



Note that lights corresponding to 0's in M are not affected 
by the above orders. 



Special registers 
octal code 
a,# STX 43 05 
a ,# STT 43006 
a ,# SFT 43007 

Shifts 

octal code 
a ,# DMR 44000 

a ,# DML 440 10 

a,# LUR 45 10 

a,# LUL 45 20 

a ,# LRR 45 001 

a ,# LRL 45002 

a,# LRS 45 15 

a ,# LLS 45062 



Set X. Set the increment register to M. 
Set TT. Set the to-tape register to M. 
Set FT. Set the from-tape register to M, 



Double mantissa right. Arithmetic 
right shift of (U,R) mantissa M places. 

Double mantissa left. Arithmetic left 
shift of (U,R) mantissa M places. 

Logical U right. Shift (U) right M 
places , shifting zeros into left end 
of U. 

Logical U left. Shift (U) left M 
places, shifting zeros into right end 
of U. 

Logical R right. Shift (R) right M 
places, shifting zeros into left end 
of R. 

Logical R left. Shift (R) left M 
places, shifting zeros into right end 
of R. 

Long right shift. Shift (U,R) right 

M places, shifting (U) into R and zeros 

into left end of U. 

Long left shift. Shift (U,R) left M 
places, shifting (R) into U and zeros 
into right end of R. 
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octal code 



a,# CRR 450 55 Circle right. Shift (U,R) right M 

places, shifting (U) into R and right 
end of (R) into left end of U. 

a,# CRL 45066 Circle left. Shift (U,R) left M places, 

shifting (R) into U and left end of (U) 
into right end of R. 

a,# BCT 46000 Bit count. Clear U; shift R right M 

places; add each 1 which spills from R 
one at a time into U. 



T-flags 

TFU 47000 T-flags and ITR to U. Clear U, then 

bring two ITR and four T-flag bits to 
U: ITR in octal (0,1,2, or 3) - bits 
49 and 50, TF4^bit 51, TF5-bit 52, 
TF6-bit 53, TF7-bit 54. 
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• Class 5, Logic and Fast Registers 

In the list below, the symbols are followed by their octal 
equivalents and a brief explanation of their meanings. 

Any Class 5 mnemonic may be followed by -> or +1, to cause 
storing of the final ( U) at location M; by +2, storing (U) at 
location (B6) ; or by +3, storing (U) at location M+(B6) . In ad- 
dition, any Class 5 mnemonic may be preceded by a - sign, causing 
the final result in U to be complemented (before storing). The 
Class 5 mnemonics are as follows: 
octal code 

CPL 50100 Complement. Change all l*s in U to 

's and all *s to 1 ' s . 

Exchange (U) and (R) . ( U) -R as (R)-U. 

Load U. (S)^U. 

Load R. (S)-R without disturbing ( U) . 

Load Ti. (S) -.Ti without disturbing 
(U) or (R) , for i=4, 5, 6, 7. 

STF 50540 Set T-flag. Turn on flag bit for the 

T-register being loaded to cause in- 
direct addressing in Fl and F3 . Mean- 
ingful only if adjoined to LTi by comma. 

SUR 53000 Shuffle S, U, and R. ( U) -R then (S)-U. 

ORU 50010 Or to U. Logical or for each bit posi- 

tion: (U)=0 and (S)=0 results in ( U) =0 ; 
otherwise, (U)=l as result. 

AND 50314 And. Logical and for each bit position: 

(U)=l and (S)=l results in (U)=l; other 
wise, (U)=0 as result. 

XTR 50020 Extract. For each bit position: 

(S)-U if (R)=l, (U) unchanged if (R)=0. 

SYD 53220 Symmetric difference. For each bit 

position: (U)=(S) results in (U)=0; 
(U)^(S) results in (U)=l. 

SYS 53120 Symmetric sum. For each bit position: 

(U)=(S) results in (U) = l; (U)^(S) re- 
sults in (U)=0. 



XUR 


54000 


LDU 


50410 


LDR 


50400 


LTi 


504i0 
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• Class 6, Input-Output 

In the list below, the symbols are followed by their octal 
equivalents and a brief explanation of their meanings; the 
indication "a ,#" means that the operation symbol automatically 
causes IM bit 1 to be set to 1 (to load S with M instead of (M) ) , 
since the operation indicated deals with M rather than with (S). 

For detailed explanations of reading, printing, punching, 
plotting, and magnetic tape operation, see the Rice Computer Manual 

The Class 6 mnemonics are as follows: 
Pa per tape 

oc ta 1 code 



a ,# RTR 60000 

a ,# RHX 60100 

PHX 60400 

PH7 60500 

PTR 60600 



Read triads. Read 1 to 18 triads 
from paper tape into U. 

Read hexads . Read 1 to 9 hexads from 
paper tape into U. 

Punch hexads. Punch 1 to 9 hexads 
from (S) onto paper tape. 

Punch hexads with 7th hole. Punch 1 
to 9 hexads, each with a 7th hole, 
from (S) onto paper tape. 

Punch triads. Punch 1 to 18 triads 
from (S) onto paper tape. 



"Either "Read" mnemonic may be followed by -> or +1, storing (U) 

at location M; by +2, storing (U) at location (B6); by +3, storing 

(U) at location M+(B6); by +40 to turn on I L4 (mantissa overflow) 

if there is no tape in the reader. 
Console typewriter 

oc ta 1 code 

TYP 60700 Type. Type (S) as 18 octal digits on 

console typewriter. 



Prin te r 



a,# 



oc ta 1 code 
PRN 61110 



Print numeric. Print, using first 32 
characters of print wheel, from print 
matrix beginning at location M; space 
one line after printing. 
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octal code 

a ,# PRA 612 10 

a ,# PRO 613 10 

SPA 61010 

SP2 61020 

SP3 6103 

SP4 61040 

SP5 61050 

SP6 61060 

PAG 61070 

DLY 61000 



Magnetic tape 

octal code 
a,# WDi 64i00 

WMi 64i20 



a,# RDi 65i00 

SMi 66100 

RWi 66i01 

BCK 60040 

NST 65004 



* 



Print alphanumeric. Print a 
using all characters. 

Print octal, 
characters 

Space. Advance print 



s above 



Print as above, using 
characters 0-7 only. 

er paper one line. 

Space, format 2. Advance printer paper 
to next 1/22 page mark. 

Space, format 3. Advance printer paper 
to next 1/11 page mark. 

Space, format 4. Advance printer paper 
to next 1/6 page mark. 

Space, format 5. Advance printer paper 
to next 1/3 page mark. 

Space, format 6. Advance printer paper 
to next 1/2 page mark. 

Page restore. Advance printer paper 
to next new page. 

Printer delay. n successive executions 
of DLY will delay the machine for at 
least n-1 tenths of a second and not 
more than n tenths of a second. 



Write data on MT unit i; i=Z(for 0) 
1,2,3. ' ' 

Write marker from last 8 bits of (S) 
on MT unit i; l=Z(for 0) 1 2 3 

Read data from MT unit i; i=Z(for 0), 

Search for marker in last 8 bits of 

(S) on MT unit i; i =Z ( for ) ^ -^ 2 ^ 3> 

Rewind tape on MT unit i; i=Z(for 01 
1,2,3. v J ' 

Backward. Perform operation in back- 
ward direction. 

No store. Do not store to memory. 
This is meaningful only for read MT 
orders . 
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"Search is overlapped with computer operation, but next order to 
searching transport will hang until search is complete. 

Oscilloscope and strip chart plot 
oc ta 1 code 

PLT 6700 ° pl °t on oscilloscope or strip chart. 

ADV 67700 Advance movie film. 
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• Class 7, Analog Input, Shifts, Delays 

Any Class 7 mnemonic may be followed by -» or +1, to cause 
storing of the final (U) at location M; by +2, storing ( U) at 
location (B6); or by +3, storing (U) at M+(B6). This class deals 
with various instructions used in conjunction with operation of 
the analog-to-digital converter. 

The Class 7 mnemonics are as follows: 
octal code 



WAT 71100 



LSI 

LS2 



72010 
72020 



Wait. Machine will wait until the next 
pulse from a crys ta 1 -contro 1 led 1 kc . 
pulse generator before exiting Field 2. 

Special fast arithmetic shifts of 



LS4 72040 



double-length (U,R), left if S exponent 
positive, right if S exponent negative. 
Shifts are 8 bits at a time. LSi in- 
dicates i shifts of 8 bits. These 
shifts are principally used in unpack- 
ing converted data. The mnemonics may 
by combined to get different length 
shifts: LS4,LS1 would give 5 shifts 
of 8 bits (total: 40 bits). These 
shifts do not pass through the expo- 
nents of U or R nor through the sign 
of R, but do shift into the sign of U. 

Manual conversion. An A-to-D conver- 
sion of the channel specified by (S) 
will be performed. 

Automatic conversion. Six conver- 
sions from channels 1 through 6 will 
be perf o rmed . 

Conversion results will be packed into U as follows: The 8 
bits (sign plus 7 bits) resulting from each conversion will be 
packed into the mantissa with the bits resulting from the first 
conversion farthest to the left and the bits resulting from 
last conversion in the right-most 8 bits of U. The U exponent 
will be set to 77. The R mantissa is used. 

There are sixteen channels into the converter. The channel 
to be converted is specified by the right-most 16 bits of S. 



MCN 72110 



ACN 72364 



Channel 1 corresponds to S 



m47 



Channel 2 to S 



m46 



etc . 



OPERATION CODES 
In addition to the formal store options, operations may be 



performed with the 72xxx orders as foil 



ows 



72xxx + 400 
72xxx + 200 
72xxx + A 



(S) will be sent to U before per- 
forming any other operation. 

(S) will be cleared and a 1 sent to 

S m47* 

(S) will be logically shifted 1 to the 

left each time (U,R) is shifted 8 to 

the left. Notice that this feature 

can be used to sample consecutively 

numbered channels automatically. 
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• Summary of Operation Codes 

The accompanying chart summarizes the Field 2 mnemonics avail- 
able in API and AP2„ If an operation code is followed by the symbol 
"(?", the corresponding mnemonic causes IM bit 1 to be set to 1. 

The symbol "-*" following an operation mnemonic of class 1, 2, 
5, 6, 7 causes a final store of U to M. 

The symbol "-" preceding a class 5 operation mnemonic causes 
a final logical complement of U. 

For more than one operation mnemonic in an instruction, the 
octal codes will be combined by a logical OR. In most cases, 
mnemonics are separated by commas. In class 0, the tests are 
Separated by " + " for "ANY", by "x" for "ALL". The mnemonics "POS" 
and "NEG" are compound "ANY" tests and the mnemonics " PNZ " and 
"NNZ" are compound "ALL" tests. 
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SUMMARY OF OPERATION CODES 
CLASS 



™ °°™°| IF(ANY)HTR 00000(3 " IF(ALL)HTr"o4o"oO@ 

skp nlann* ^ ANY > TRA ° 1000@ if(All)tra 05000@ 

SKP 02000 IF(ANY)SKP 02000 IF(ALL)SKP 

JMP 03000 IF(ANY)JMP 03000 IF(ALL)JMP 



06000 
07000 



PSN 00100 
MOV 00200 
EOV 00300 
NSN 00500 
NMO 00600 



ZER 


00010 


EVN 


00020 


SLN 


00030@ 


NUL 


00040 


NZE 


00050 


ODD 


00060 


SLF 


00070@ 



TGi OOOOi 
NTG 00004 
NTi 00004+i 
1 = 1,2,3 



NEO 00700 ODD OOOfin POS 00110 

PNZ 00150 

NEG 005 10 

NNZ 00550 



CLASS 1 



ADD 


10000 


FAD 


10400 


SUB 


10100 


FSB 


10500 


MPY 


10200 


FMP 


10600 


DIV 


10300 


FDV 


10700 


BUS 


14100 


BSF 


14500 


IMP 


10220 


VDF 


16700 


IDV 


13300 






VID 


16300 






VDI 


17300 







CLASS 2 



STO 20001(3 rpl 20301 

FST 20041 RPE 20701 

BEU 21000 RPM 21001 

BLU 21400 RPR 21401 

BAU 20100 RPA 21601 

BRU 20300 RPI 215 °1 

BMU 20700 RWT 21641 

BIU 20200 STi 20010 

CLA 21700 1 = 1,2,3 

DBL 20004 WTG 2 °°4<> 

CLASS 4 NOP 30000 



TSR 40000(? SLN 42000@ DMR 44000@ CLASS 5 

SBi 40001(3 ILN 4200 1(3 DML 44010(3 LDR 50400 

SPF 40007(3 MLN 42002@ TniT sniin 

ACC 41000(3 TLN 42003@ LUR 45010 @ S? lnt}n 

ABi 41001(3 SLF 42004(3 LUL 45020 @ ± f°t 2 7 

APF 41007(3 ILF 42005(3 LRR 45 °01@ i^p,b,7 

ERM 40020 MLF 42006(3 LRL 45002 @ STF 50540 

1 = 1, ...6 TLF 42007@ J*?? ?52H? SUR 53000 

BCT 46000(3 STX 43005@ 
TFU 47000 



LUR 


45010(3 


LUL 


45020@ 


LRR 


45001@ 


LRL 


45002@ 


LRS 


45015(3 


LLS 


45062(3 


CRR 


45055@ 


CRL 


45066@ 



XUR 54000 



STT 43006@ CRL 45066<? CPL 5 <>100 

SFT 43007(3 " 0RU 50010 

AND 503 14 
CLASS 6 S YD 53220 

SYS 53 120 
50020 



RTR 60000@ prn 61110(3 WDi 64iO0 XTR 

RHX 60100(3 PRA 61210(3 WMi 64i20 

PHX 60400 PRO 61310@ RD i 65100 CLASS 7 

PH7 60500 SPA 61010 NST 65004 



PTR 60600 SP1 61010 SMI 66100 WAT 71100 

TYP 60700 1=2,. ..,6 RWi 66101 A ^ 72364 

PAG 61070 BCK 60040 MCN 72110 

i _ 7 i 9 o LSi 720i0 

PLT 67000 i-^,l,2,j ^_^ ^ ^ 

ADV 67700 
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The tables on this page summarize the options available in 
SETU (Field 1), AUX (Field 3), and ADDR+MOD (Field 4). In the 
tables 

A indicates the full length special registers Z ,U ,R ,S ,T4 ,T5 , T6 T7 
specified in the second triad by 0,1,2,3,4,5,6,7. 

B and Bi indicate the short index registers CC ,B1 ,B2 ,B3 ,B4 ,B5 ,B6 , 
PF specified in the second triad by 0,1,2,3,4,5,6,7. 

I and M indicate the number formed in the address field of the 
instruction. (M) indicates the contents of the memory lo- 
cation numbered M. 

Exceptions are R-Z , 10 in field 3 and I or jz|, 20 and -I or -|z|, 
30 in field 1. R-z has the result that R is cleared to Z. I or 
|z| has the result that an integer 1 goes to U. -I or -|z| has 
the result that an integer -1 goes to U. 



1st Triad Field 1 

(SETU) 

A b~"" "" 4 

-A 1 -B 5 

|A| 2 | B | 6 

-|A| 3 -|B| 7 



1st Triad Field 3 
(AUX) 

U-Bi 4 

R-*Bi 5 

Bi-1 6 

I-Bi 7 



U-hA 





R-A 


1 


Bl + 1 


2 


Bi+X 


3 



1st Triad Field 4 
__^ (ADDR+MOD) 

(M) """"m 4 

-(M) 1 -m 5 

I (M) j 2 | M J 6 

-|< M >I 3 -| M | 7 



PSEUDO-ORDERS 

Pseudo-orders govern the process of API assembly and facili- 
tate the handling of blocks of various types of data within API 
programs. Pseudo -orders do not exist in AP2. 



• ORG and END 

All programs to be assembled by API must be started by an 
ORG (origin) order and terminated by an END order. 

The function of ORG is to initialize the assembly process, 
to identify the program which follows, and to determine whether 
it is to be assembled in relative or absolute final form. The 
ORG order is preceded by a "cr" and an "uc" or "lc" punch (up- 
per or lower case). 

A relativized program will run anywhere in memory. If an 
order in location P refers in Field 4 to location Q, it is through 
a Control Counter reference of the form CC+(Q-P)-1. A relativized 
program that will load under SPIREL control is generated if the 
LOCN field of the ORG pseudo-order is not blank; the ADDR field 
must be blank or zero in this case. To assemble a program to 
load with codeword at address N (octal) the ORG pseudo-order 
has the form 

N ORG 

j cr | 1st tab j 2nd tab 

To assemble a program to load symbolically with name S (5 or fewer 

characters) the ORG pseudo-order has the form 

S ORG 

| cr | 1st tab | 2nd tab 

To assemble a program to load as the Ath element of the Bth element 
... of array K the ORG pseudo-order has the form 

K, . . . ,B ,A ORG 

I cr I 1st tab I 2nd tab 



Here A,B,... are octal numbers; K is the codeword addr 



ess or name 
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(as above) of the array to which the program belongs. As many as 
five levels may be specified. All control words are provided for 
the loading of the program as the designated array element. 

A relativized program is also produced if the ORG pseudo-order 
has zero ADDR field and blank LOCN field. This form is only 
appropriate if the self-loading option is to be used during assembly. 
The self-loading tape produced will load with the LOAD switch be- 
ginning at the address in B6. 

An absolute program will run only at the specified memory 
location. Field 4 reference to location Q is made directly. An 
absolute program is generated if the ADDR field is not blank or 
zero; the LOCN field must be blank or zero. To assemble a pro- 
gram to load at address M (octal) the ORG pseudo-order has the 
form 

ORG M 

i cr j 1st tab | 2nd tab ) 3rd tab 

The program will load with the LOAD switch if the self-loading op- 
tion is used during assembly; otherwise it will load under SPIREL 
control. 

The END order has the form 

END cr cr 

| cr | 1st tab | 2nd tab 

where "END" must be immediately followed by two (or more) 
carriage returns. 

Neither ORG nor END cause any words to be generated in a 

program . 
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The EQU (equivalence) order gives a numeric equivalent for 
a symbol or equates one symbol to another. The order has the form 

L EQU M 

| cr ] 1st tab | 2nd tab | 3rd tab 

where L (in LOCN) is the symbol defined by the pseudo-order, SETU 
is blank, and M (in ADDR) is either absolute or a symbol whose 
value has previously been defined through its appearance in the 
LOCN field of another order. L is assigned the value M. If M 
is a 5-digit octal code, the symbol L may appear in the OPN field 
of any order following the EQU order; L will be treated as an 
operation code and will be replaced during assembly by the octal 
code for which it stands. No words are added to the program 
being assembled due to an EQU. 
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BSS and BES 



Either of these orders inserts a block of zero words into 
the body of the program. BSS (block started by symbol) and BES 
(block ended by symbol) have the form 



cr 



XXX M 
| 1st tab | 2nd tab | 3rd tab 

where L (in LOCN) is blank or symbolic, SETU is blank, and M (in 
ADDR) is absolute. M is the number of zero words to be inserted. 
If L is symbolic, it is assigned as if the LOCN field had been 
associated with the first (BSS) or last (BES) word in the block. 
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« BCD, FLX, REM 

These orders deal with alphanumeric data and have the form 

L XXX M 

| cr j 1st tab | 2nd tab | 3rd tab 

where SETU is always blank. The operation mnemonic must be fol- 
lowed by a "tab" character, and after that all characters (in the 
ADDR field M) are retained, 9 characters per word. Any occurrence 
of the "cr tab tab tab" sequence to continue the character string 
is replaced by a "space". For BCD (binary coded decimal), each 
character is converted to a corresponding printer hexad and the 
words are stored into the program being assembled; if L (in LOCN) 
is symbolic, it is assigned as if associated with the first word 
stored. For FLX ( f lexowri ter) , all codes (including case shifts, 
etc.) are preserved without conversion and the words are stored 
into the program being assembled; L (in LOCN) may be symbolic as 
for BCD. For REM (remarks), L (in LOCN) must be blank; this 
order is used only to obtain printed comments in the program list- 
ing, and no words are stored into the program being assembled. 
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* DEC . OCT , and HDC 



The DEC (decimal), OCT (octal), and HDC (hexadecimal, i.e. 
base 16) orders are used for inserting numeric data into the body 
of the program. They have the form 

L XXX M 

|cr jlst tab J2nd tab J3rd tab 
where L (in LOCN) is blank or symbolic, SETU is blank, and M 
(in ADDR) consists of a list of one or more octal or decimal 
numbers. If L is symbolic, it is assigned as if associated with 
the first number in the list. Each number must be separated from 
its successor by a comma, and each will be stored into a separate 
word in the program being assembled. Continuation lines should 
not be used; for long lists of numbers, several DEC or OCT pseudo- 
orders in succession may be used to produce a continuous block 
of data. An octal number consists of one to 18 octal digits. A 
decimal integer consists of one to 14 decimal digits; a floating 
point decimal number, of one to 14 significant figures and a 
decimal point. A hexadecimal number consists of one to 13 hexa- 
decimal digits (0, 1,...,9, a, b, c, d, e, f ) . It may be 14 
hexadecimal digits if its value is less than or equal to 
3ffff fffffffff . 
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REF 



The REF (reference) order defines a single cross-reference 
word in the program being assembled. All REFs for a program must 
appear immediately after the ORG order, before any code for the 
program. The form of a REF order is 



NAME 
cr 



1st tab 



REF CONTENT 
I 2nd tab I 3rd tab 



o r 



NAME 
I c r 



1st tab 



REF *CONTENT 
| 2nd tab | 3rd tab 

Each REF must contain a location symbol, the name used to address 
it in the code for the program. The ADDR field of the REF speci- 
fies the content of the cross-reference word: a string of charac- 
ters containing only upper case letters and numbers which will be 
converted to printer hexads , filled to 5 with '25' hexads or 
truncated to 5 as appropriate. If the cross-reference word is 
to contain an indirect addressing bit (for a vector, matrix or 
program), this is denoted by » *• before the hexad string, with no 
intervening spaces or punches. If k REFs appear in a program, the 
first will be at location -(k-1) of the final program, ..., the 
k " at location 77777 (-0). The punched output of the final pro- 
gram will be followed by a control word to set the initial index 
of the program to -(k-1). When the program is loaded, execution 
of the control word to set initial index to -(k-1) will cause 
SPIREL to operate on each of the k cross-reference words as 
f o 1 lows : 



1) 

2) 



make an entry in the Symbol Table (ST) of the 5 hexads 

in the cross-reference word; 
insert the corresponding Value Table (VT) address in 
the address field of the cross-reference word. 
Indirect reference in the assembled program through the REF then 
causes addressing of the item with name in ST, the value in VT for 
a scalar or the codeword in VT for a vector, matrix, or program. 
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For a double operand, such as a complex scalar or non- 
scalar, two cross-references must be used and these must appear in 
the order of the parts of the operand. The name of the operand 
is associated with the first part, and the second part is named 
"ditto", which is printed '«-*-<-♦-_' but typed '#####*. If A is 
a complex scalar its cross-references might appear as 

AREAL REF A 

AIMAG REF *-«-*-_*- 

I cr | 1st tab | 2nd tab | 3rd tab 

where •-—.— ' is typed '#####•. It may be that one of the 
cross-references is never referred to in the code; this is the 
only case where an unlabelled REF may be used, but two REFs 
must be given . 



MACRO-ORDERS 

o Application 

Macro-orders are available in the API assembly language. 
This facility allows the coder to define parameterized sequences 
of code and have these substituted in his program during assembly. 
Since a code pattern may thus be written only once for more than 
one occurrence in the program, a number of advantages are offered: 
Symbolic code for the program is shorter; 
-- code for the program is less prone to error because fewer 

instructions are prepared; 
-- the program is more easily changed because a single change 
in a macro definition will take effect in all occurrences 
at ass emb ly ; 
-- the program is more readable because single macro names 

appear in the code for operations which actually require 
sequences of machine instructions. 

A macro -order is a general name which has been defined by the 
programmer to represent one or more valid API instructions. Then, 
at each subsequent call of the macro-order, these instructions 
are inserted into the assembled program. Any order included in 
the macro -defini tion may contain a parameter in one or more fields; 
such a field may be changed each time a macro-order is called by 
specifying a different va lue for the parameter at each call. 

Example. Suppose in an API program there existed the follow- 
ing code: 

CLA ALPHA 

FAD B6 + 1,U-*T4 

STO GAMMA 

CLA B6 

FAD BETA,B6+1 

STO B6 

CLA ALPHA 

FAD BETA,U^R 

STO GAMMA 
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The program could have saved hi m self the effort of writing 
the repetitious sequences of instructions by defining a macro-order 
called SUM with four parameters as follows: 

SUM MACRO 



ADONE+ADTWO-^TOTAL ,AUX 
CLA ADONE 

FAD ADTWO,AUX 

ST TOTAL 



MEND 



Thee, having Refined the ».™-„der SUM, the program 
could cjU it in his API code, uslng different parameter values 

at each call: — " 



S V M ALPHA, B6+1, GAMMA, U-T4 

SUM B6,BETA,B6,B6+1 

SUM 



ALPHA ,BETA , GAMMA ,U->R 
The instructions assembled would be identical with those 
originally written by the programmer, but the repetitious cod, 
would not appear in the program. 
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A macro-definition specifies a set of instructions, gives the 
set a name, and determines which fields (if any) are to contain 
parameters. The macro -de f ini tion consists of three parts: (1) the 
MACRO pseudo-order, in which the LOCN field gives the name of the 
macro-order and the ADDR field gives the list of parameters; (2) 
the set of instructions to be represented by the macro-name; (3) 
the MEND pseudo-order, ending the macro -de f ini tion . 

(1) The MACRO pseudo-order may or may not include a list of 
parameters and must be one of the following forms: 

NAME MACRO PARA ,PARB , . . . , PARZ 

| cr | 1st tab | 2nd tab | 3rd tab 

NAME MACRO 

| cr | 1st tab | 2nd tab 

The name of the macro-order may be any valid API general name. 
This is its only appearance in the LOCN field; it is written in 
the OPN field at each call of the macro. If the macro-order has 
parameters, they are listed in the ADDR field of the MACRO pseudo- 
order,, A parameter name is any valid API general name, and is 
separated from the next parameter name by one of the following 
special characters: 

+ - x / ( ) 
The last parameter is followed by a carriage return; if more than 
one line is required, the 'cr tab tab tab' sequence follows (but 
does not replace) the separating character at the end of the first 
line. Note that if parentheses are used, they must be used in 
pairs,, In this way meaningful notation may be employed in the list 
of parameter names; for example, 

COMP MACRO RATE ,TIME ,DIST , TOTAL 
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could also be written 

COMP MACRO RATE (TIME) -DIST .TOTAL 

or 

COMP MACRO RATEXTIME=DIST-^TOTAL 

(2) Any reasonable number of instructions may be represented 
by the macro-name; generally, a lengthy set of instructions will 
best be coded in closed subroutine form rather than in the open 
form generated by a macro-order. Any valid API instructions except 
pseudo-orders may be included. Symbols which have appeared in the 
ADDR field of the MACRO pseudo-order are parameters and are subject 
to the special rules described below; all other symbols are treat- 
ed in accordance with the usual API conventions. Orders within a 
macro-definition may conform to the rules for instruction content 
or they may include parameter names which are then subject to the 
ru les be low . 

LOON : Symbolic LOCN fields which are not parameters may be 
used within a mac ro -de f ini tion , but such symbols are not meaning- 
ful outside the set of instructions comprising the ma cro -def ini - 
tion; they may be referenced only by other orders within the set. 
A symbolic LOCN field which is a parameter name must be given a 
different value at each call of the macro-order; these values 
may then be addressed by orders outside the macro -de f ini tion . Note, 
however, that orders within the macro -def ini tion may reference LOCN 
symbols which appear elsewhere in the program, including those 
defined by ps eudo -or ders . 

S_ET_U: A single parameter name may appear in SETU, with or 
without the minus and absolute value signs normally permitted in 
this field. All values taken by this parameter at subsequent 
calls of the macro must then be valid SETU symbols or octal equiv- 
alents. Note that if a - or | | sign is included, it is effective 
regardless of whether another - or | | sign is used with a SETU 
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symbol as a parameter value at a subsequent call; such inflection 
signs are combined by a logical 'or'. If, at a given call, a SETU 
parameter value is omitted, it is replaced by the octal code '01' 
(do not change U) . 

OPN : Multiple parameter names are permitted in OPN to allow 
flexible coding of Class tests, Class 2 tag orders, etc. These 
parameter names may be combined with the special symbols such as 
->, +, X, etc., normally permitted in this field. In the case of 
multiple parameters, values need not be specified for all parameters 
at every call if the resulting code is valid. Parameter values for 
OPN may include any valid OPN symbols or octal codes; the special 
symbols -», +, X, etc. may also be used as part of parameter values. 

ADDR+MOD : This field may consist of a single parameter name, 
which is to assume a value equivalent to any valid ADDR+MOD form 
(e.g., *ZETA, B1+B2+1, M+B6); or the field may include several 
parameters, provided the values they assume at any given call re- 
sult in valid code (for example, S YMB+BREG+NUMB might become 
BETA + PF+3 or *ALPHA+B2+1) ; or one or more parameter names may be 
combined with other symbols and/or numbers which are to remain the 
same at each call (such as NAME+B1+1, which might become ABC+B1+1 
or XYZ+B1+1) . A parameter value may be omitted entirely at a 
given call if such an omission does not destroy the validity of 
the remaining code. The special symbols such as *, a, -, and I I 
may appear either with the parameter name or as part of the para- 
meter value, and are combined by a logical 'or'. 

A UX : This field may consist entirely of a single parameter 
name; if so, the value assumed by this parameter must be a valid 
AUX octal code or symbolic equivalent (e.g. U-»T4 , Bl-1, etc.). 
Alternatively, either or both of the fast register symbols (and 
also I and X) may be represented by parameter names, provided that 
only valid combinations are used for parameter values (for example, 
Bl-X and I->T4 are not permitted). 
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TAG : The customary TAG symbols (TGI, TG2 , TG3) may appear 

within a macro-definition, or this field may contain a parameter 

name for which one of the above symbolic values will be substituted 
when the macro-order is called. 

(3) The MEND pseudo-order which terminates the macro-defini- 
tion is as follows: 

MEND 

1 cr | 1st tab | 2nd tab 

More than one ma cro -de f ini tion may appear within a given 
program, provided each is bracketed by its own MACRO and MEND 
pseudo -order s . The same parameter names may be used in separate 
macro -def ini tions without causing confusion, but they must not be 
used as symbols elsewhere in the program. A macro -def ini tion may 
appear at any point in a program; it generates no code at this 
point, and transfers around the ma cro -def ini tion are not needed. 
The only restriction is that a macro-order must be defined before 
it is ca 1 led . One macro -def ini tion may not appear within another, 
but a previously defined macro-order may be called within the 
definition of another macro-order. 
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• Call 

After a macro-order has been defined , it may be called by 
writing the name of the macro-order in the OPN field of an instruc- 
tion; if the macro-order uses parameters, their values for this 
particular call are listed in the ADDR field of the 



Parameter values for 
the list of 



same instruction, 
a macro-order are listed in the same order as 



parameter names_ in the MACRO pseudo-order of the corre- 
sponding macro-definition. Parameter values are separated by 
commas; the list is terminated by a cr, and the 'cr tab tab tab ' 
sequence following a comma may be used to continue the Ust onto 
a second line. Certain parameters may be omitted at a give n call- 
in this case, two adjacent commas (with or without spaces between' 
them) or a comma followed by a cr indicate an omitted parameter 
A macro-order will usually be called at several different points 
in a program. Any call may have a symbolic LOCN field, but 
no two calls may have the same symbolic LOCN field. The L0C N 
symbol is assigned to the first order of the set of instructions 
represented by the macro-order, unless the LOCN field of this order 
contains a parameter name for which a value is specified at the 
current call; in this case, the parameter value takes precedence 
Note that several orders may replace a single macro-order; hence 
relative addressing around a call must be used with care. 

At each call, the sequence of parameter values must correspond 
to the sequence of parameter names which appeared in the macro- 
definition, but the values assumed by the parameters will usually 
differ from one call to another. A parameter value may consist 
of any string of characters which, when substituted into the macro- 
definition at each occurence of the corresponding parameter name 
will produce valid API code for the field in which it occurs. if 
the call lies within another macro-definition, a parameter name 
from the outer ma cro -def ini tion may be used as a parameter value 
for the inner macro-call. 



MACRO-ORDERS 
8 

a Examp le s 

Suppose an API program contains the following code: 
Bl SB1 B2,U^B2 

LT4 *MATR1 

Bl SB1 B2,U-B2 

B3 SB3 B4,U-B4 

LT5 *MATR2 

B3 SB3 B4,U-B4 

This could be written by defining a macro-order such as 

BREGS MACRO BA,BB,SBA,LTJ,MATRI 

BA SBA BB.U-BB 

LTJ *MATRI 

BA SBA BB,U-BB 

MEND 

and ca 1 ling it as follows: 

BREGS B1,B2,SB1,LT4,MATR1 

BREGS B3 ,B4,SB3,LT5 3 MATR2 
Another example of a macro - defini tion might be: 



STORE MACRO 



TREG ,0PN ,TAG ,SYMB ,BMOD 



I TREG I OPN,TAG S YMB +BMOD ,1 ^BMOD 

BMOD RPA ,WTG SYMB-1 



MEND 



where the call 



STORE T4,ST0,ST2 ,ALPHA,B3 
would pr odu c e 

! T 4| ST0,ST2 ALPHA+B3 , 1 -B3 

B3 RPA ,WTG ALPHA-1 
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and the call 



STORE -T6,FST,B6,B1 
wou Id produce 

~| T6 I p ST B6+B1,I-B1 

Bl RPA,WTG B6-1 

All of the preceding examples are crowded with parameters in 
order to demonstrate the versatility and flexibility of macro- 
orders. In actual practice, many instances will be found where 
only one or two symbols vary at each repetition of otherwise iden- 
tical blocks of code. Here the saving in programming time and in 
reducing the likelihood of introducing errors when copying lengthy 
sections of code will prove substantial. For example, the follow- 
ing block of code might occur repeatedly in a control program link- 
ing various subroutines : 

LITES 



MACRO 


SUBR 


CLA 


SL 


RWT 


RESET 


SLF 


77777 


TSR 


*SUBR 


SLF 


77777 


SLN 


(Z) 


MEND 





RESET 



Once defined, the macro-order "LITES" could be called at 
each point in the program where a transfer to a subroutine occurs. 
By specifying the particular subroutine as a parameter value of the 
macro-order, one order could be written in place of six each time. 

A macro-order using no parameters at all would be useful, for 
example, in reversing the indexing of a matrix: 
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MACRO 




SB1 


B2,U->B2 


LT4 


*MATR 


SB1 


B2 ,U->B2 


MEND 





TRANS 

Bl 

Bl 



At each call, the macro-order "TRANS" would cause 14 to be 
loaded with the desired element of the transposed matrix MATR. 

As noted above, one previously defined macro-order may be 
called within the definition of another, producing a set of 
"nested" macro -order s . In the following example, such a set of 
nested macro-orders is used to multiply two matrices and store 
their product as a third matrix. 

The outermost macro-order MULT has as parameters the codeword 
addresses and dimensions of the matrices involved; MATA has NROW 
rows and L columns, MATB has L rows and MCOL columns, and the pro- 
duct matrix MATC has NROW rows and MCOL columns. Within the 
initialization and storage operations performed by MULT, a second 
macro-order PROD is called; its definition uses two of the same 
parameters used by MULT and it performs the actual arithmetic and 
indexing operations required for the matrix multiplication. Both 
these macro-definitions are assumed to be embedded in a larger 
program in which numerous matrices of varying dimensions must be 
multiplied together. 
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230 



ORG 



API instructions 



PROD 




MACRO 




MATA ,MATB 


LOOP 


B2 


SB2 

LT4 




B3 ,U->B3 
*MATA 




B2 


SB2 




B3 ,U-B3 


definition 


Bl 


SBl 




B3 ,U->B3 


of 
i nner ma c r o 


T4 


FMP 
FAD 




*MATB ,B1-1 
T5 ,U-T5 




Bl 


SBl 




B3 ,U-B3 




B3 


IF(NZE)TRA 


LOOP 






MEND 






■"" MULT 




MACRO 

SBl 




MATA ,MATB , 
NROW 


OUTER 




SB2 




MCOL 


INNER 


Z 


SB3 




L,U-T5 


definition 


(-*■ 


PROD 




MATA } MATB 


of 
outer macro 


T5 


STO 




*MATC ,B2-1 




B2 


IF(NZE 


)TRA 


INNER 


call of _ 




SBl 




Bl-1 


inner macro 


Bl 


IF(NZE)TRA 


OUTER 






MEND 







MULT 



A,B ,C ,5,3,7 



API instructions 



MULT 



M1,M2,M3 ,*P,*Q t * v 



MULT 



G , H , J , 2 , 2 , *N 



API instructions 



END 



ASSEMBLY PROCEDURE 

An API program is assembled by exercising option #6 in the 
PLACER system. 

Assembly output on the printer consists of error messages, 
program listing, and symbol table. These are discussed below. 
Assembly also provides a punched paper tape which contains the 
assembled program'to be loaded under SPIREL control or with the 
LOAD switch. Assembly options are also discussed below. 

Error indications . An API error indication is produced by 
apparent errors in syntax or sequencing. The type of error and 
its location are given by a message: 

ERROR IN [F] AT CR NO [N] 
where F is the name of the field in error 

and N is the placer listing carriage return number of the line 
containing the error. 
If a single instruction is continued onto more than one line, the 
carriage return number for the last line will pertain to the entire 
ins t rue tion . 

Assembled program listing . Four columns are printed, giving: 

(a) The symbolic location (if any exists). 

(b) The location count, relative position of the word in the 

program, in octal. 

(c) The instruction in octal, broken into fields, with tag. 

(d) The symbolic address (if any exists). 

Locations not assigned by the coder are assigned by the assembly 
program beyond the code for the program being assembled. These 
appear with their names below a row of asterisks in the program 
listing. A name may be one supplied by the coder, as 'A' in the 
case 

STO A 
where 'A' never appears in a LOCN field. A name may also be one 
supplied by the assembly program for long octal or full length 
decimal numbers referenced in ADDR, as in the cases 

ASSEMBLY LANGUAGE May, 1967 
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AND 77777 0000 7777 00000 
or CLA d3.0 

or ADD d412697 

Specifically, the names assigned to numbers by the assembly pro- 
gram are '-OOOOA', ' -0000B ' , „ . . in order of occurrence in the pro- 
gram being assembled. 

Symbol table. The table of symbols is printed out in seven 
columns giving information relevant to the symbols defined in the 

program : 

(a) The relative position in the table. 

(b) The symbol. 

(c) A number (usually 0) which determines the type of ob- 
ject for which the symbol stands. 

(d) The equivalent assigned to the symbol (5 octal digits) 
unless the symbol is a macro name or a macro parameter. 

(e) A number (usually 1) which indicates reference in the 
program to the symbol. A number 3 denotes a symbol 
which appears in a L0CN field but not in an ADDR field, 
so this may be an unnecessarily defined location in the 
program. A number appears on macro names and macro 
parameters and on symbols given a numeric equivalent. 

(f) An 18 digit octal number. The first 5 digits indicate 
the line at which an equivalent was assigned. 

(g) A number which indicates how (if at all) the equivalent 
was assigned: 

0: by appearing in the LOCN field of an order. 

1: by appearing in the LOCN field of an EQU pseudo-order 

in which the address was symbolic (see section on 

pseudo -orders ) . 
2: by appearing in the LOCN field of an EQU pseudo-order 

in which the address was numeric (see section on 

ps eudo -orders ) . 
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Assembly Options . If only option #6 of PLACER is requested, 
the stop 

(I) : 06 HTR CC 

occurs. In addition to sense lights 14 and 15 which are turned 
on automatically, other sense lights may be turned on for special 
forms of ou t pu t . 

S L9 on: Print with double (instead of single) spacing. 

SL11 on: Do not punch assembled program. 

SL13 on: Punch self-loading tape. The tape produced will 
load by using the LOAD switch on the console. An absolute program 
will load to the origin specified. A relativized program will 
load to the setting of B6. These program forms are discussed under 
the ORG ps eudo -or de r . 



CODING EXAMPLES 



• Storage Exchange 

This program STEX handles dynamic storage allocation in 
SPIREL. If Bl = codeword address of array and B2 = length of 
array upon execution of STEX, space is taken, and Bl = first 
word address of block upon exit. A more detailed explanation of 
the use of this program may be found in the SPIREL literature. 
The remarks in the program serve to explain the proj 
t ion . 



'gram s ope ra 



Lines 
2 

6 

13 

25 

37 

46 
60 
65 
100 

10 1 
110 
13 1 
137 
155 

174 



Commen ts 

This program has codeword address 154. 
+2, store to B6 option on class 5. 

EQU'ed name in field 4; only the first 6-hexads 
of any name are retained. 

Decimal integer constant in ADDR; 'a' bit is 
generated automatically due to shift order in OPN. 

Simple store option * _' on class 1 arithmetic 
order; store is to fast register T6. 

R is cleared to zero in AUX by R - Z , not Z - R. 

Increment of CC in AUX causes a skip. 

-I in field 1 sets U to the integer -1. 

Only AUX is used here; no operation is perform- 
ed in OPN. 

I - B3 means final address to B3 in AUX. 
More than two B-mods in field 4. 

Store ATR to memory in OPN, compound mnemonic. 
+3, store to B6 + M option in OPN. 

Control counter is incremented by contents of 
X register in AUX, causing a jump. 

Long octal constant is used in ADDR and is stored 
at bottom of program. 



Lines 

224 

227-230 

23 1 
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Co mm en ts 



T7 is restored from value stored on the B6-list. 

Labelled long octal constants out of code sequence 
The first will be ri ght -ad jus ted , filled with lead- 
ing zeroes to 18 octal places. 

Binary coded decimal psuedo-order generates two 
words of hexads here. 



232-240 



Equated symbolic names. 



Vll/6f 11.32 

REM 



PAGE I 



wEri 



ST£X FQR SPIRFL 



T7 


LT7 + 2 




bl jB6+| 


-1 


TRA 




d-KSAVF »U*R 


7 


dAU+2 




X«5**! 




l_D* 




STJRAP 


7 


LL3 




dl 5»U*T6 


7 


oAU 




FT-<STFX*U*TS 


7 


bAJ 




aBi»u-T4 


PI 


IFIZER 


ITRA 


REJRC3.»r<»Z 


T7 


iFINUl. 


)T*A 


t\<E 



INACTIVATE SPACF ADDRESPED BY 



31 V" I 




a a 


B1/U-T7 






IFINUL )TRA 


at VE5>U*34 






CRL 


d15*R-33 




T7 


L.UR 


«°4'U-d5 




P5 


i_UR 


j.J«6? 






IFINUI IT 1 ?* 


bT\/E2 






|_r>R 


MASK 2 




7 


1F(NULIS<P 


T^ 






aB4 


BS*CC+1 






AB4 


b"-«l 


GIV C 2 


7 


oAU 


8^3+ I'll** 




7 


dAU 


6=H 






lF(NEf=)SKP 


T~ 




t 


ADD* 


TA 




c 4 


rtPA 


bi 




T7 


AND 


M A 3K 1 






IF(NUL)TRA 


6TVE3 




PI 


ST3 


B4>B6*1 




P4 


M DJ 


a^3-l'J*B1 




7 


ciAU+2 


o^3»tJf+l 






TRA 


uWE1j*-z 


o I V u 3 


7 


|_Dr*« 


dl >R~R4 




7 


LLS 


0!5'U»PF 




7 


cAJ 


a34»l*PF+l 






iF(Poc)S< p 


T^.R-7 






TRA 


bT VE4 




PF 


lRS 


oto>3' l -1 




P 


iAJ 


■^TOKAy, i*B 






STO 


C>4 




F3 


1F(NUI )TRA 


C~+l 




Ft 


|<PA 


c3#CC+J 




P4 


SPA 


aTJRAG 


•3IV U 4 


7 


3 AU 


a^l 






IF(NZ=') C =< P 


T'4- 






TRA 


TA<E 


3If5 


-I 


A03* 


bA-lj p l-i 






IFINzr )TRA 


uWEl^-7. 






CLA 


g'S-Sj T-B6 






TRA 


bI\ZE3*J*3l 



REM 



ACTIVATE BLOCK OF LE-mPTM P^+1 



? 

3 
A 

c 

7 
10 

II 
1? 
13 
1* 
15 
I * 
17 
dl 

SI 

2? 
2? 
2* 

26 
27 
30 
31 
3? 
3? 
34 
3 C 
3* 
37 
40 
41 
4? 
4^= 
4" 
4F 
4f 
47 
50 
51 
5? 
53 
5A 
5F 
5A 
57 
60 
6! 
6? 
6? 
6A 
& F 
66 
67 
70 
71 

7? 



c 



p AP£ 2 

74 
7 C 
7f 
77 
!0C 
101 
10? 
103 
104 
10 c 
1 0^ 
107 
110 
! M 
H? 
II? 
1 14 
W^l *"?ITt ACTIVE BLOCKS TO LOW ADORFSctS 



V 


1 l'6f 11 


. 3? 




TAK r 


Pc 


IF(ZED|TRA 


ATAKE.**7. 




7 


6AU 


a^2+l^J*T7 




T6 


lF(Po^)S< p 


t? 




7 


TRA 


ATAKt'j-31 






NOP 


a 7 iU-T6 






LDR 


fc^TORAQ, I-B3 




7 


lL3 


ct 1 3 






IF(PO^)S<P 


T^iU-Hg 






TRA 


ft-JRQ 


TAK 1 " I 


T4 


STJ 


6^i33+l 


TAK"2 


P5 


LR5 


o)5#R~34 




-3 


IF(ZE°|TRA 


TA<E3 




v 


;STO 


B^+BSiI-Bif 


TAK U 3 


F 4 


RPA 


sT'JRAH 




T4 


IF(ZEP)TRA 


AT^Kcir?-Z 




P3 


TRA 


A take* j»bi 



K p AjWT3 *^4 
ANO MV3K1 



*E'0*35 c| iF(Nz^)T^A h-jRG4,E3+l 
*EQ"<36 7 D AU a^CT + X 

IFINE^IPKP T<* 



11* 
117 



REQN'3 p 6 t v. Lx | 0<O00»J*T7 

bTX Z.I-.66 J2P 

SB3 *-IRST£X,I»R4 121 

TRA h^QRU7 | op 

REO v Q! CLA «H»U*35 | 23 

CRL a 1 5*R*d 1 |2A 

= 6 lF(Mz r )TR* K~JR6= ] 2 e; 

S93 fcT+Bl + l*I*B/f 126 

TRA K'ORGf j 27 

RE0^3? CLA a^o+d* 



130 

13! 

lF|NZf|TR* k-JRC3',B3+1 1 3I 

AB3 BUB4-1 iji 

c 4 RPA CC+!jPi+i 1jC 

I A34iEo*l clfULUEa 13* 

CLAiWT3+3 d~i3i-i 137 

TR* *~JRG7 140 

*E"0 w u3 CLAiWTG+3 c4jB4+1 \m 

*E0"G4 3Ui-JiLnR+3 o4jB4+1 | 4? 

IF|NUL)T-?A «-JRGF,3i-l ^ 

5^114 MAiK^H-B'S 144 

IFINUDTRA cr+I i 4 p 

~ LUL a^*CC+l i4 f 

s uUL a^*35~l 147 

JM3 a36 igp 

IF|Psm<7£ , ')TR« 01jP3+1 131 

ADO a^5-PiJ*3R 15? 

3 «WT b~-l 15-3 



13<* 
15F 

13^ 

P6 STX £.J«PF 157 

■^E0 W 37 P<<. IFli\IZ r )S< c a«LASTEX j ftC 

TRA R"ORG» i6, 

LD-? o* 162 

-L3 dl5*U*dl 163 

1 64 
16 c 



IF( Mill. )TRA rivDRBi 

F3 oUd 0^1+64, I-.B4 

TRA k~3R37,U*B6 1 



b 



Vll/6f 11.3? 
•*E0^38 T7 v 

U 

PF 



r^EO" 10 



ritO^ll 



ATA't 



MAS" 


1 


MAS* 


a 


.NOT 




3 




XCW 1 




SAV 1 " 




UNsfl 


VE 


5TC 1 - 


'AG 


FIR* 


'TEX 


LAST 


EX 



? 

T6 



PF 

T4 
7 

IT* I 

p 

PI 

7 

T7 

PF 



mLF 

IF(NN7)S< P 

aDD- 

iFtSLFl^KO 

tRA 

CLA 

BAU 

dL.M 

T5* 

SLF 

L D* 
CLA 

L.0-? 

lF(MZr)S<P 

TRA 

CLA 

i_LH 

CLA 

lF(NUl )S<p 

APF 

*PA 

TRA 

IF(NZF)T3« 

TRA 



LRa 

f?PL 

STX 

lF(ZFo*NT!-|TRA 

L.T7 

AB6 

OCT 
OCT 

r}CJ 

fcOU 
C QJ 
£0U 
tOJ 
lQJ 
t Qj 
iQj 
tNO 



PAFE 



o^ooO'U-a* 

Tt 

T4 

01302 

rivORS 

01002*0 1 onOoOOOOon 

aN0TE»U*T7 

01002 

*<CWD 

U10O2 

G» **d4 

f^SKgnj-PF 

aS4+l »34+| 

b4+| 

o^u-di 

c 1 +PF»U»pF 

i. J F-| 

I 

t>4+j 
* c JRtn 

T »,<£?,» J*d2 

a! 5 
b T JRAn 

a"<36-!*U-T7 
c«JNSAVE,B6-l 

a7777f*U*CC 

41000^000 

7^77777777400^7777 
K^O^CiAiMl^ATIO^ 
1 3 5 

Ho 

n7 

no 

ill 

il2 



167 
170 
17! 
172 
173 
174 
I 7* 
176 
177 

200 
?oi 

2Q2 

203 

204 

2Q C 

20* 

207 

210 

211 

?1? 

2 ) 2 

214 

'1? 

2lf 

2J7 

220 

221 

222 

2£3 

224 

22? 
22* 
227 
230 
231 
232 
233 
234 
23 c 
23^ 
237 
240 

24! 

2*2 
243 



PROGRAM 



15* 



4/12/46 IP. ?/ 



3TE V FOR SPIRAL 





1 


07 ^047? ?6 000" 00000 






2 


in O|n n 02 4400 C0136 


PAVfc. 




3 


00 ?OlO' , 36 0000 77775 






4 


oi ^r^oo oc oooo co ion 


?TORAG 




c. 


ii*06* 06 4000 0Q017 






6 


00 ?f*,icr 05 3000 CO 101 


FI9STE 




7 


00 °P10O 04 4005 00000 






10 


41 n lOp |C 4001 00"70 


PtnSG 




! 1 


07 ^104^ 00 400! 00047 


TAKi 


INAC-TIVATF FPA 


CE. AjDREg 


;sed PV Bt 




GlVtl 


12 


01 '1700 07 000? 00000 






13 


01 r-p^ 44 400! 0004] 


0IVL5 




14 


qi 4r r6A 53 ^qqp 0on | 7 






lb 


07 ' r rr 4b 4000 OQ030 






16 


45 <<5i">1p 45 4000 C0 n 03 






17 


01 ^^4" 00 4001 C0004 


GIVC2 




20 


01 C -A0^ OC 000! CO 167 


MA9<? 




11 


00 0*040 00 0000 00007 






01 Moo* 20 4040 00000 






23 


01 Moo* OC 4040 77776 




GIVE? 


?4 


oo °rto^ 02 4010 OQOOl 






25 


00 TlO" 00 4020 00000 






?6 


oi °? c r oo oooo 00005 






?7 


02 10O0I 00 3000 COOOft 






30 


44 ?I601 00 0002 COOOO 






31 


07 ^02 1^ 00 0001 00 15^ 


MASK I 




32 


01 r\!-it~ 00 400! 00004 


GIVs.3 




33 


41 -0O01 26 4 100 00000 






34 


44 <0"O n 41 4010 7777a, 






35 


00 3C 102 26 4010 00000 






36 


01 "100" 10 4001 7775? 


PlVcl 


GIVE? 


37 


00 c f)401 54 000? OQOOO 






4C 


00 ^506^ 47 4000 COO 17 






M 


00 'OlOO ?7 4020 77776 






42 


01 0?1 \n ,c oooo oooo* 






*3 


01 OJOO" 00 4001 C000A 


RIV£4 




44 


47 *5M C 64 4000 00017 






45 


0? ?010" 73 0400 Co 100 


FTOkAQ 




*6 


0! ^""00! 00 4020 OQOOO 






47 


43 <*|<H r 00 4001 OOOOl 






*Q 


44 *!ao< 20 0010 00000 






51 


44 'IfO' 00 3000 COIOO 


ftorag 


GlvEi 


5c 


00 -'OiO'^ 00 400^ COOOO 






53 


01 1^*050 00 OOOO C0004 






54 


01 PlPO'* 00 4001 00004 


TAKi 


GIV£F 


^5 


30 1O001 61 3100 77776 






56 


01 M'^ 10 4001 7773? 


Glvtll 




c 7 


01 ""O^ 76 3100 7777F 






60 


01 Oiro^ 41 4001 77755 


OIVe.3 


ACTWATF RL r CK- 


OF LEMSTW R2+' 




TAf-E 


61 


42 r\r\n \Q 4001 CO I 1 7 


ATAnF" 




62 


00 ^OIC" 07 4004 00001 






A3 


06 n ?1 \o CO OOOO 00007 






64 


00 ojooo 4 1 400! 001 14 


atakf 




65 


01 'O^O" 06 4000 00000 






6o 


0! c 040 r 73 3400 00100 


PTORAq 




67 


or , den 6 -5 00 4000 cor ,i7 






70 


01 n? l 1" 4b 3000 00007 






71 


01 0100^ OC 400! 00007 


REn«o 


TAKE! 


72 


04 ^Cooi 23 *010 00000 




TAKE? 


73 


45 4§p(r K4 4000 CQ017 






74 


45 oinjo 00 400! 00001 


TAKt3 




7o 


nr ^ftooi 7* 4014 onooo 







take? 


76 


44 


?1*0< 


00 


oooo 


00100 


RTOrtAG 






77 


0* 


^\o\n 


10 


4001 


00101 


ATAKE 






ino 


43 


ojnoo 


41 


400! 


Oo 10n 


ATAK5! 


WRITE 


ACTIVF BLOCKS TO 


LOW 


*DrRFSSt- 


-> 








REPRG 


101 


46 


iigncr 


07 


4000 


04000 








102 


01 


*"3^0 C 


76 


4000 


00000 








103 


01 


innc 


74 


4400 


0Q101 


FIPSTE 






104 


01 


Mno^ 


00 


4001 


00035 


RE0RG7 




REORG] 


105 


01 


'170" 


45 


0420 


ooooo 








106 


01 


**P6« 


51 


4000 


00017 








107 


46 


f\ 050 


00 


4001 


OOOO? 


PE0RG2 






1 10 


01 


*ftro'' 


7* 


401? 


ooooi 








1 1 1 


0! 


oi 00^ 


00 


400! 


00025 


RE0R06 




REORFS 


1 12 


01 


9|? r 


00 


4140 


ooooo 








1 13 


01 


p\fm 


00 


042P 


coooo 








1 U 


01 


R C'l4 


00 


3001 


C007P 


MASK1 






1 15 


01 


0I050 


23 


4001 


00005 


RE0KG3 






1 16 


01 


* 1 00^ 


64 


400? 


ooooo 








1 I 7 


44 


?'60» 


21 


300 1 


ooooi 








(20 


20 


*]D2* 


45 


400? 


OOOO) 








i?i 


01 


?17*o 


61 


3040 


OOOOO 








122 


01 


o \ ro° 


00 


4001 


00017 


REORG7 




RE0RG3 


1?3 


01 


'17*^ 


24 


3020 


ooooo 






REPRP4 


1?4 


0! 


^ato" 3 


24 


0020 


ooooo 








1?5 


01 


nir,*^ 


61 


400! 


oooio 


PEORG5 






IPfe 


01 


c ni i* 


55 


300! 


0Q061 


MACK? 






t?7 


01 


^104 r 


00 


400! 


ooooi 








130 


0? 


"5^2^ 


20 


4000 


0001 1 








131 


0? 


*a02 r ' 


65 


4000 


ooo u 








132 


01 


lienor* 


00 


4000 


00044 








1?3 


01 


05! I" 


25 


400! 


OQOO | 








134 


01 


10O0 n 


45 


4040 


77776 








135 


43 


?l*4l 


00 


0040. 


7777ft 






PEORG5 


136 


41 


01050 


23 


400! 


77764 


RE0RR4 




RE0R06 


137 


00 


9 0ioo 


30 


4020 


ooooo 








140 


01 


P?5 1" 


00 


OOOO 


00004 








1*1 


46 


iSOO^ 


47 


4O0O 


oooo? 






RE ORG 7 


1*2 


44 


rposr 


00 


440P 


00 10? 


LASTEX 






1*3 


01 


O|oo° 


00 


400! 


C0005 


RE0RR8 






I** 


01 


*C40<" 


00 


3020 


cooon 








145 


00 


*"06' 


41 


4O00 


00017 








146 


0! 


Ojo^o 


00 


4001 


7773S 


PEORGi 






147 


43 


TlO n 


74 


402? 


ooooo 








150 


01 


O]r>oo 


46 


4001 


77770 


RE0KR7 




REORP8 


1^1 


07 


*?00A 


46 


4000 


C4OCO 








52 


0* 


06*50 


00 


oooo 


00005 








53 


47 


!"00t 


00 


3000 


0000* 








54 


01 


0*070 


00 


4000 


0000? 








55 


0! 


! oo° 


00 


4001 


00005 


RE ORG 9 






56 


01 


?!700 


00 


300! 


0003* 


*0OGOA 






c ,7 


01 


or iqo 


07 


4001 


00031 


N.'OTE 






60 


01 


*?oOO 


00 


4O0O 


OQOO? 








61 


01 


*0OQO 


00 


4400 


00126 


XCWD 






62 


01 


*£no'i 


00 


400n 


00002 






RE0RP9 


*3 


0! 


"/. 00 


5* 


OOOO 


0012F 


G 






64 


01 


"PO" 


45 


0020 


OOOOO 








65 


00 


c r*o n 


47 


0001 


CQ02? 


MASK2 




REORIO 


66 


45 


"fPSo 


24 


4020 


ooooi 








f-1 


06 


0! oqp 


45 


4001 


00007 


RED*! 1 






70 


01 


^1700 


00 


0020 


0000 1 








71 


0) 


*■<■) j r, 


4| 


4000 


00033 








72 


01 


'170^ 


47 


020? 


OqOOO 








73 


01 


PgfHO 


67 


OOOO 


CQOOO 








74 


0! 


* I 007 


00 


4000 


OOOOI 








75 


47 


'UO! 


00 


0020 


00001 








76 


01 


oiroo 


00 


4001 


7776A 


REHKln 



REHRl 1 


177 


04 


01050 


10 


4001 


7767! 


TAKEl 




200 


00 


r\nQr 


42 


4001 


77671 


TAKcl? 


AT4KF 


201 


2* 


h'r\\ts 


00 


4000 


0Q017 






202 


0? 


'0301 


00 


oooo 


ooioo 


PTO«AG 




203 


41 


4300 K 


07 


4500 


77776 






204 


00 


PT0J4 


66 


4400 


00137 


UNSAVE 




205 


07 


c rn7r< 


41 


0100 


77776 






206 


47 


4 loo* 


40 


4000 


77776 




MASK1 


207 


on 


oppo p 


00 


4000 


coooo 




MASKF 


210 


77 


7777^ 


77 


7400 


77777 




NOTE 


211 


61 


44«=66 


14 


6405 


55071 






212 


40 


^O* 


65 


5?5? 


52525 




«**««**** 
















-OOOOA 


213 


00 


on?40 


10 


oooo 


ooooo 





3U 


SAVE 





1?* 


3'5 


STQRAG 


o 


100 


3'6 


FIRSTF 


6 


inj c 


3'7 


RFORG 





in i 


3'0 


TAKE 





61 1 


3" , \ 


GIVE) 





1? 1 


3' 3 2 


GIVE5 





^B 1 


3-3 


GTVE2 





o\ , 


3-4 


MASK? 





21ft 1 


3^5 


MASK| 





2°7 1 


3*6 


GIVE3 





'7 1 


3 '=7 


GIVE4 





c t \ 


33 


ATAKE 





2-1 1 


3^1 


TAKFi 





7? 1 


3'2 


TAKE2 





7m 1 


3*3 


TAKE3 





It 1 


3^4 


REQRG7 





149 J 


3"»5 


RFORG 1 





I OF 1 


3*>6 


R e !0RG2 





112 1 


^l 


RE0RG6 


o 


137 1 


3^0 


RE0RG3 





IPS 1 


3 4 1 


RF0R34 





pft l 


3*2 


RF0RG5 





!?* 1 


3*3 


LASTEX 





If 


3"4 


HE0RG8 





IP! 1 


3*5 


RrO«G9 





1'? 1 


3*6 


•nooo* 





21* 1 


3*7 


NOTE 





2M I 


3^0 


XO'D 





\?t 


3=M 


G 





rs o 


3*2 


REORlO 





16* 1 


3^3 


RFORl 1 


c 


177 1 


3 = 4 


UMSAVE 





P7 



2430000000000000 

2450000000000000 

2460000000000000 

1240000000000000 

77^000000000000 

230000000000000 

660000000000000 

350000000000000 

2350000000000000 

2330000000000000 

500000000000000 

630000000000000 

2?4n0O00000O000O 

I 100000000000000 

I 1 I ooooooooooooo 

1140000000000000 

1650000000000000 

1300000000000000 

1350000000000000 

1620000000000000 

1460000000000000 

1470000000000000 

161O00000C000O00 

2470000000000000 

1740000000000000 

2060000000000000 

2* 1 ooooooooooooo 

2370000000000000 

2420000000000000 

2410000000000000 

£1 1 ooooooooooooo 

2220000000000000 

2440000000000000 



CODING EXAMPLES 
3 
• Matrix Inverse 

This program computes the inverse and determinant of a real 
matrix and prints an error message if the matrix is singular. 
The method used is essentially in-place Gaussian reduction as 
described in "An Introduction to Numerical Mathematics" , Stiefel, 
E.L., 1963, page 3. Each successive pivot element is the largest 
in absolute value of all the remaining choices in a given column. 
The result is a compromise between speed and accuracy. An n X n 
matrix is numerically singular if the ratio of any two pivot 
elements exceeds 10 6 /n. The codeword address of the matrix to be 
inverted is in T7 on entry, the inverse is stored as USTAR 
(codeword address 10), and the determinant is output in T7 . If 
the matrix is singular, T7 = on exit. 

Lines 11 to 36: 

The fast registers are saved, the input matrix is copied if 
necessary, internal constants are computed, the row codewords are 
labelled, and DET is initialized. 

Lines 37 to 61: 

The next column is scanned for the largest element, the 
largest and smallest pivot are stored and tested. 
Lines 62 to 10 1: 

The exchange algorithm is now applied to USTAR, the non- 
scalar accumulator in Genie and the pivot element is multiplied 
into DET. 

Lines 102 to 113: 

The two appropriate row codewords and their back references 
are exchanged if necessary. 

Lines 114 to 15 1: 

The columns of the final inverse matrix are now sorted as 
necessary due to non-diagonal pivoting. 

Lines 152 to 157: 

This section of code causes printing of an error message. 



CODING EXAMPLES 
4 
Lines Comments 

2 This is a symbolically named program, INV. 

4-5 Cross-reference words for named items referred 

to by INV. 

7 Extra carriage returns and a remark in the code 

s equence . 

11 Use of + 2 store option in operation field, store 

to B6. 

Minus inflection in SETU, compound test in OPN, 
use of EQU'ed name in address field. The 'a' bit'is 
not required since TRA gives this inflection auto- 
ma tica 1 ly . 

15-16 EQU'ed name in address field, and REF'ed name 

in address field. 



12 



35 



41 



66 



106 



160 



Decimal constant in address field will be stored 
at the bottom of the program. 

Absolute value inflections in SETU and ADDR, and 
indirect addressing specified by ' *' in ADDR. 



46 '-' codes as a store to M, here MAXP; '+1' in 

OPN is equivalent. 



Enter repeat mode option on set or add to 
B-register orders. 

Use of more than one B-modifier in field 4 
B1 + PF+M(M=0). 



127 Reset X register from number originally stored 

on B6- lis t . 

154 Th e address part of this instruction or M was 

replaced by the contents of PF at the instruction 
on line 13. Anything in ( ) is ignored in assembly 



A decimal constant is defined and is stored at 
EPSLN. 



162-165 ' z ' with OCT causes zero to be stored at these 

loca t ions . 



CODING EXAMPLES 

5 
Lines Comments 



166-171 E QU psuedo-orders assign numeric values to n 



ames 



173-174 The END pseudo-order terminates the code but 

generates no instructions. It is followed by two 
carriage returns. 
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The formula language for the Rice Computer is called the 
Genie language . Programs written in the Genie language are called 
Genie programs . Translation of Genie programs into machine language 
is accomplished by the Genie compiler . 

The language and the compiler are both often referred to as 
just Genie . What is meant is usually clear from the context. 

Genie programs may contain instructions written in the AP2 
assembly language. Hence, the AP2 assembly language is a subset 
of the Genie language, and the AP2 assembly program is a subset 
of the Genie compiler. 



PROGRAM FORMAT 



The unit of definition to the Genie compiler is the 

definition set , which has the form 

DEFINE 

declarations of external variables and 

parameters for the entire definition set 

constant codeword address specifications for external 

variab les 

function definitions 

PROGl(PARAMl) .=SEQ "1 

declarations of internal variables 1 

remarks 

constant specifications 

command sequence for the calculation 

END 

PROG2(PARAM2) .=SEQ „nd 

2 program 

in definition 

E ND S e fc 



1 program 
in definition 
set 



PROGn 

END 

LEAVE 
I cr 



DEFINE 



th 
n program 

in def ini tion 

set 



| lsttabstop 

A definition, then, is a collection of programs (in the most usual 
case just one) which depends on a common set of external quantities 
and which are completely independent with respect to their private 
internal symbols. The definition set has meaning only at compila- 
tion;, the independent programs may be dynamically interconnected, 
among themselves or with programs compiled at another time, in 
any meaningful way at the time they are executed. 
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Typing of the definition set is begun by the sequence 
'cr tab uc DEFINE 1 . This first 'DEFINE' insures that the compiler 
does not retain any symbols mentioned by another user of the system. 
Each line of a program should be begun with a case punch (uc or lc) 
and is ended by a carriage return (cr) . If a s ta tement is so long 
that it needs to be broken in typing, the sequence 'cr tab tab tab" 
provides continuation of the statement onto the next line. ' PROGi ' 
designates a program name . ' PARAM1 ' designates the parameters of 
the program, a non-empty list of names separated by commas. The 
operation '.=' followed by the symbol 'SEQ' signals initiation of 
code generation for the program. Recursive code will be generated 
(so that a program may use itself) if 'RSEQ' is used instead of 
'SEQ'. 'END', typed at the left hand margin and followed immediate- 
ly by a 'cr', terminates the program, initiates final compiler 
output of the program, and causes the symbol table limit to be back- 
ed up so that the compiler retains only its vocabulary symbols and 
the external variables of the definition set. The second 'DEFINE' 
terminates the definition set and causes the symbol table limit 
to be backed up so that the compiler retains only its vocabulary 
symbols; all external variables backed over are printed out. 
'LEAVE', typed at the left hand margin and followed immediately 
by 'cr cr 1 , causes exit from the system. 



NAMES 



Private names, those invented by a user of the Genie compiler, 
are formed by the following rules: 

1) a single lower case Roman letter; 
or 2) an upper case Roman letter, followed by upper case 

Roman letters, followed by lower case Roman letters, 
followed by numerals (no embedded spaces). 
By rule 1) the following are examples of names: 

a i p x 
By rule 2) the following are examples of names: 

A CAT Fn DDxy 12 PQ29 Dog3 
Concatenation of names implies multiplication of the variables 
specified. The following are not names: 

ab A B3 8 Pt4p M5ef w 10 
They are interpreted respectively as: 

axb AXB38 Pt4xp M5xeXf wXlO 
Any number of characters may be used in a name, but only five 
are retained by the compiler. If lower case Roman letters are 
embedded in a name, the first is tallied as two characters. 
The names 

m Man 
are stored as 

.M M.AN 
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Names in the vocabulary of the compiler may not be used by 
the coder as private names . These include 

names of library items — COL, SIN, LINCT , etc. 

names of various machine registers — Bl, CC, T4 , etc. 

names with special meaning in the Genie language — as 

DATA, TRUE, LEAVE, etc. 

In alphabetical order, vocabulary names are: 



ACOSH 


CCSH 


CSOLN 


FUNCT 


MINSE 


REPEA 


ACCEPT 


CDET 


CSNH 


FXEXP 


MITIM 


RESUL 


ARRAY 


CDIV 


CSQR 


GAMMA 


MMPY 


ROW 


AS IN 


CEXP 


CSUB 


| GO 


MOD | 


RTRAN 


ASINH 


CFEXP 


CTAN 


IM 


| MODUL 


SCALA 


ATAKE 


CHISQ 


CTNH 


INFER 


MPATC 


SCRIB 


ATAN 


CINV 


CTRAN 


INPUT 


MPOLA 


SET 


ATANH 


CLENG 


CVS PA 


INTEG 


MPOWE 


SIN 


Bl 


CLOG 


CXEXP 


INV 


MRE 


SINH 


B2 


CMADD 


DATA 


ITIME 


MSPAC 


SL 


B3 


CMCON 


DEFIN 


ITRAN 


MSUB 


SMDIV 


B4 


CMCPY 


DET 


LEAVE 


MTAKE 


SMMPY 


B5 


CMMPY 


DIAG 


LENGT 


NEO 


SOLN 


BCD 


CMPY . 


DISPL 


LET 


NUMBE 


SQR 


BOOLE 


CMS PA 


DPUNCH 


LGAMM 


1 ODD 


STNDV 


CADD 


CMSUB 


END 


LINCT 


ORTHO 


T4 


CARTN 


CMTAK 


EOV 


LOG 


OUTPU 


T5 


CACSH 


COL 


ERASE 


LOG10 


PAGCT 


T6 


CALL 


COMPL 


EVEN 


MADD 


| PAGE 


T7 


CASN 


CONJ 


EXECU 


MATRI 


PLOT 


TAN 


CASNH 


CONTR 


EXP 


MAX 


POLAR 


TANH 


CATAKE 


CONVL 


FALSE 


MCART 


PRESC | 


TITLE 


CATN 


COS 


FFT 


MCMPL 


PRINT 


TRAN 


CATNH 


COSH 


FFTC 


MCONJ 


PUNCH 


TRUE 


CC 


COT 


FIX 


MCOPY 


QCONF j 


TTAKE 


CCEXP 


CRCOR 


FLEX 


1 MEAN 


RANDM 


VECTO 


CCOL 


CROW 


FLOAT 


MFLT 


RE 


VREV 


CCONT 


CSIN 


FOR 


MIM 


READ 


VSPAC 


ccos 


CSMDV 


FORMA 


MIN 


REAL 


Z 


CC0T 


CSMMP 


FTRAN 


MINDE 


REM 




The 


following n 


ames may 


be used as 


private symbols 


in Genie 


language 


but have sp 


>ecial me< 


aning in the 


> assembly language: 


B6 


I PI 


R 


S U 


X 





Four character strings which are not names have special 
meaning to the compiler: 



and 



if 



or 



not 
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A string of decimal numerals 

14 
DDD < 2 

is an in teger . A string of decimal numerals containing either a 

decimal point '.' or a power point ' *' is a floating point number . 

The form of a floating point number is illustrated by 

A.B*C 
which is interpreted as 

A.BX10 C 
There may be as many as 14 numerals in A and B combined. C is an 
integer between -70 and 70; if C is not preceded by a minus sign, 
it is taken to be positive. Minus signs may precede decimal num- 
bers, integer or floating point, with the usual arithmetic meaning. 

A string of 18 or fewer octal numerals immediately preceded 
by a unary ' +' 

+ 000 

is a right-adjusted octal configuration . [A '+' between two num- 
bers is binary and does not cause the number which follows it to 
be octal.] 

The following numbers will be understood as shown: 
3 decimal, integer 

-3.0 decimal, floating point 
3. decimal, floating point 

3*8 decimal, floating point 
3.0*-8 decimal, floating point 
-0.3 decimal, floating point 
.3 decimal, floating point 
4-30 octal 
Spaces may be embedded in numbers; they are ignored. There- 
fore, fields within a number may be separated by spaces for ease 
of reading. For example, if _ represents a 'space 1 punch, 

3_641_20 9.4_*_-8 
is exactly equivalent to 

3641209. 4*-8 
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and 

+00200_0130_0004_00257 
is exactly equivalent to 

+002000130000400257 



VARIABLES 

In any program, each variable falls into one of three 
categories: internal, external, or parameters. 

Internal variables must be scalars (integer, real floating 
point, complex, or Boolean), and these are assigned storage within 
the program. The names of internal variables are not retained out- 
side the compilation of a single program; hence, the same name 
may be used in more than one program with a different meaning in 
each of the programs. Labels on statements are also internal 
va r iab les . 

External variables may be either scalar (integer, real float- 
ing point, complex, or Boolean) or non-scalar (program, vector, matrix, 
or array), and all non-sea lars mus t be external. All external 
variables of a program must appear in the definition set containing 
that program before any ' . = • . External variables of any one program 
are the common property of all programs in which they are declared ex- 
ternal that are in the machine at running time. The names must have 
unique meaning throughout the system. During program execution, each 
external variable has its name on the symbol table (ST, *1 13 ) and its 

■" lar il i;. lue ° r "on-scalar codeword in the corresponding value table 
QVT, *122) entry. 

Parameters may be either scalar or non-scalar. If they are 
non-scalar they must be so declared within the definition set con- 
taining the program before any '.=». Parameters are neither in- 
ternal nor external with respect to the program in which they 
appear, but while running the arguments will fall into one of these 
categories with respect to dynamically higher level programs. Para- 
meters of a program are only representative of the arguments which 
will be specified to the program by the dynamically higher level 
program which uses it while running. Within a system of programs 
the dynamically highest level program receives control from the 
operating system and cannot have arguments provided by the system; 
hence, the dynamically top level program should have one purely 
dummy parameter, a name that is never referred to in the program. 
The names of parameters are not retained outside the compilation 
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of a definition set; the same name may be used as a parameter for 
more than one program in a definition set, but for no other purpose 
in the definition set. 



DECLARATIONS 

Declarations are used to describe variables that names 
represent. The simple form of declaration is illustrated by: 

VECTOR A 
VECTOR A , B , C 
VECTORS A , B , C 
j cr | 1st tab 

A more general form is illustrated by: 
INTEGER VECTOR A , B , C 
INTEGERS VECTORS A , B , C 
| cr | 1st tab 

One or more declaration words (either singular or plural) are 
followed by one or more variable names separated by commas. 

A variable used in the Genie language is completely de- 
scribed by its: 

type integer, real, complex, or Boolean 

shape Scalar, Vector, Matrix, or Array 

and mode function or not 

A sea lar is described by a type declaration: 
INTEGER or INTEGERS for integer 

REAL or SCALAR or SCALARS for real floating point 
COMPLEX for complex (Cartesian form) 

BOOLEAN for Boolean 

A non-s ca lar is described by a shape declaration: 

VECTOR or VECTORS for vectors ho8e elements 

MATRIX or MATRICES for matrix/ are scalars 

ARRAY or ARRAYS for non-scalars whose elements 

are non-scalars 

and a type declaration which applies to its elements. 

A func tion is described the mode declaration: 

FUNCTION or FUNCTIONS for a private program name 

and type and shape declarations which appropriately describe its 
imVlicit result, if it has one. Note: Library programs are known 
to Genie, and need no declarations. 

Not all variables need be described by declarations. When 
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a variable appears on the right side of an equation in the Genie 
language, its type, shape, and mode will be inferred if they have 
not been declared: 

type real floating point 

shape scalar 

mode non-function 
The INFER declaration may be used to cause other type and shape 
inferences : 



INFER 



INTEGER 

REAL 

SCALAR 

COMPLEX 

BOOLEAN 



/VECTOR \ 
) MATRIX I 

V ARRAY J 



where either a type or a shape is given, or both in either order. 
The range of effect of an INFER is to an INFER which respecifies 
what it specifies, but not outside a definition set. 

The name of every external variable must appear in at least 
one declaration before any ».='. All declarations pertaining to 
parameters must appear before any '.=', but they need not appear 
in any declaration if inference will give a proper description. 
Declarations pertaining to internal variables must appear within 
the program to which they belong, and only the type declarations 
are applicable since all internal variables are scalars. 

Not more than one declaration in each group may be applied to 
a single variable, and not more than one declaration in each group 
may appear in a single declaration statement. 

Thus , 

BOOLEAN MATRIX FUNCTION F 
| cr | 1st tab 
is a legal statement, but 

INTEGER BOOLEAN B 
| cr j 1st tab 
is not. 
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A f unc tlon is a program which may be referred to in the 
Genie language, either for implicit execution as 'F 1 in the 
command 

y=a+F(P)+b 
or for explicit execution as 'G' in the command 

EXECUTE G(Q) 

Implicit execution is meaningful only if the function is 
single valued; in this case its output is not specified in the 
parameter list. In all other instances explicit execution is 
required . 

The last executed command of a function to be used imp lici t ly 
must define the output as follows: 

RESULT=sca lar or non-scalar arithmetic expression 
| cr | 1st tab 

In the definition of a function, its pa rame ters are given 
as an ordered list of those quantities which are supplied as 
a r gumen ts by the program which causes it to be executed. An 
argument for a parameter which designates a quantity to be cal- 
culated by the function must be specified as a simple variable 
name; other arguments may be given by any arithmetic expression. 
For example, if F(A,B,C) is defined such that parameters A and 

B are used in the calculation of parameter C by the function F, 

2 2 

a proper use of F would be F(3m +n,V , P) . But F(SIZE, SPAN, q ) 

is incorrect since the third argument may not be an expression. 

Care must be taken that parameters in the definition of a Genie 

program and arguments in the use of it by other Genie programs 

are always listed in the same order and agree in number and type. 

A function may be sufficiently simple to be defined in one 

statement. This is done before any '.=' and is illustrated by 

the definition of f in the statement 

2 

f (x,y)=3ax+a y, a=2+x 

j cr 

The function f may then be executed implicitly within the command 
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sequence of a program, 

2 
h=k f(m,n) 

where the closed subroutine f will be applied to the arguments 
m and n. During compilation, output for f will be produced in- 
dependent of that for the other programs in the definition set. 
Every Genie program is a function. It may be used as such 
by any other Genie program. A Genie program begun with 'RSEQ' 
is a recurs ive function, one which may use itself. For example, 
the function FACTL may be executed from within the command se- 
quence for FACTL: 



FACTL(k) .=RSEQ 

m = FACTL(n-l) 

END 

A recursive function may be executed either implicitly or explicit- 
ly, as appropriate to its definition. Genie programs begun with 
'SEQ' and functions defined in one statement do not cause recur- 
sive code to be generated; they may not use themselves. 

Ali functions except those in the library must be de- 
clared in function declarations. If a function is to be exe- 
cuted implicitly and its result is not to be inferred, then its 
name must appear in declarations to describe the result as well as 
in a FUNCTION declaration. Thus, the function with its arguments 
is an operand which must be assigned the type and shape of its out- 
put if it is to appear within an arithmetic expression. 

A function name is not followed by arguments in a declaration. 
To specify execution, a function must be followed by arguments, 
as SIN X2 or CALC(q) or MAP(a+b ,VAR) . A function name, without 
arguments, may be supplied as an argument to a function which will 
do the execution. Thus, the program P may be defined as P( . . . ,F , . . . ) , 
where the parameter F is a function, and call for execution of F(...); 
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then P may be executed with argument g as P(...,g,...) and the 
result will be execution of g(...) while running. 

Note: One inconvenience is associated with this notation. 
If Fl is a function of a single parameter F2 which is a function, 
the expression 

. . .F1(F2) . .. 
will be misinterpreted by the compiler. One extra pair of 
parentheses is required, as 

. . . (F1(F2)) . . . 
if a single parameter is a function. 



CONSTANTS 

Internal variables which are constants may be numerically 
specified by a LET statement within the program. The statement 
must be given before the name of the constant is used in the 
commands of the calculation. The form of this statement is il- 
lustrated by : 

LET PI =3. 14159 
| cr | 1st tab 

This is a message to the compiler which causes the number 3.14159 
to be used in the program each time the internal variable name 
'PI' is used. A LET statement causes no code to be generated. 

The above shows specification of a real floating point value. 
The variable PI takes on real floating point type. 
An integer value may be specified, as 
LET K=3 
The variable K takes on integer type. 

A complex value may be specified, as 
LET CVAL=-3 ,2 + /5 .19 
or 

LET POLE= 1 + /0 
The variables CVAL and POLE take on complex type. 
1 A Boolean value (TRUE or FALSE) may be specified, as 
LET t=TRUE 
or 

LET No=FALSE 
The variables t and No take on Boolean type. 

An octal configuration (right -ad jus ted) may be specified, as 
LET MASK=+777777077 
The + inflection concatenated immedia te ly to the left of a number 
denotes octal interpretation of the number. The variable MASK 
should not be used in the Genie language. 

A fixed address or codeword address may be specified, as 
LET #TIME=+200 
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mus t be used for every numbered scalar, program, vector, or matrix. 
A Genie program may assign its own name a numerical equivalent, 
and the tape produced by the compiler will load with codeword at 
the address specified. 

The values of non-scalars may not be specified in a LET 
s ta tement . 

The LET statement may also be used to specify the equivalence 
of two names. For example 
LET ALPHA = BETA 
causes 'BETA' to be substituted for 'ALPHA' throughout the program. 
Simi lar ly 

LET COUNT = B5 
causes the index register B5 to be used for 'COUNT 1 . 

More than one constant may be specified in a LET statement, 
if they are separated by commas, as 

LET A=3 , z=5.41*-6, #PROG=+127, TIME1=TIME2 

There are three other commands which identify names with values. 
They are explained later: BCD, NUMBERS, and FORMAT in the section 
on data commands. These commands are non-executable and must be 
transferred around, and must therefore be used with care. 



REMARKS 

Printed comments in compilation output listings may be obtained 
by using the REM statement within the program, as illustrated by 

REM COMPUTE_FIRST_VALUE 
or 

REM 
COMPUTE_FIRST_VALUE 
| cr j 1st tab 

where _ indicates a space typed within the remark. 'REM' is fol- 
lowed immediately by a single space or 'cr' which is not part of 
the remark, and then all following characters are taken as remark 
text. The statement may be continued to succeeding lines at the 
3rd tab position by using the 'cr tab tab tab' sequence. The form 
of REM in which the text begins at the left margin causes remarks 
to stand out more vividly on program listings. 

The REM statement does not introduce any data into the final 
program; its only effect is to cause the remark to be printed in 
the compilation output listing. 



COMMAND SEQUENCE 

All statements of a program from the '.=' to and including 
the 'END', except ' LET's, remarks, and declarations, cause code to 
be generated. Such statements are called commands . The occurrence 
of a label on a command causes a command sequence to be initiated. 
The ordered set of all command sequences of the program is called 
the command sequence for the calculation . Each command falls into 
one of four categories; arithmetic, control, input-output , or data 
These will be discussed in separate sections. 

Any command may be labelled. The label is typed at the left- 
hand margin, as ' CALC ' in the command 

CALC A=B +B+3.2, B=W+5 . 1 



cr 



| 1st tab 



ARITHMETIC EXPRESSIONS 

The righthand side of an equation in the Genie language must 
be an arithmetic expression. An arithmetic expression is just an 
operand . A scalar constant, a variable, an inflected variable, or 
a function name followed by a parenthesized list of arguments is 
an operand. [A single argument given as a simple variable name 
need not be enclosed in parentheses.] A pair of operands joined 
by an operation (where the triplet left operand, operation, right 
operand is defined in Genie) is an operand. 

Any operand may be enclosed in parentheses to dictate order 
of computation within an expression in the conventional manner. 
Order is also implied by relative rank of operations. In order 
of decreasing rank, i.e., the most binding first, the a r i thme ti c 
o pera tions are : 

unary inflections: -, |...j, and 'not' 
subs cri ption 
exponentiation 
X and / 

+ and binary - 

relations: =, =|=, <, ^ , <, ^ 
The triplets of operands joined by an arithmetic operation 
which are permitted in an arithmetic expression on the righthand 
side of an equation are given in the following paragraphs. 

1) +, -, X, / between integer, real floating point, or 
complex scalar operands. 

If the operands are both integer or both floating 
point or both complex, the result is of the same type 
If one operand is complex and the other is not, 
the non-complex operand is made complex before the 
operation is carried out, and the result is complex. 
If one operand is floating point and the other is 
integer, the integer is floated before the operation 
is carried out, and the result is floating point. 
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2) +/ between integer or real floating point scalar or non- 

scalar operands . 

This is the explicit representation of a complex 
quantity in Cartesian form, as x+/y (written x+iy in math- 
ematical notation) . The result is complex with real and 
imaginary parts real floating point. The shape (scalar, 
vector, or matrix) of the parts determine the shape of the 
result; both parts must be of the same shape, and non- 
scalars must have the same dimensions. If the operands 
joined by +/ are expressions, they must be enclosed in 
parentheses. If the operand x+/y is combined arithmetically 
with other terms, it must be enclosed in parentheses. 
-/ between integer or real floating point scalar operands. 

The complex scalar x-/y is simply x+/(-y). 

3) +(or), -(symmetric difference), x (and) , /(symmetric sum) 

between Boolean scalar operands. 

Combination of Boolean operands yields a Boolean result, 

by the following rules : 

+ FALSE if both operands FALSE, otherwise TRUE 

- TRUE if operands differ, FALSE if operands the same 

x TRUE if both operands TRUE, otherwise FALSE 

/ TRUE if operands the same, FALSE if operands differ 

The octal representations for the Boolean values are 
TRUE 007777777777777777 
FALSE 007777777777777776 

4) +, -, x between non-scalar operands containing integer, real 

floating point or complex elements. 

Standard conventions apply as to restrictions on dim- 
ensional compatibility, and the operands must be in 
standard form.* Addition or subtraction of two vectors 
or two matrices yields a vector or a matrix respectively. 
Multiplication of matrices yields a matrix. Multipli- 
cation of vectors yields the scalar product which is 

GENIE April, 1967 
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a scalar. Multiplication of a vector and matrix yields 
a vector. If the operands are of the same type, the 
result is of that type. If the operands are of dif- 
ferent types and one is complex, the result is com- 
plex. If one operand is integer and the other float- 
ing point, the result is floating point. 

5) X between integer, real floating point, or complex scalar 

and integer, real floating point, or complex non-scalar. 

The scalar may be on the left or the right of the 
non-scalar, which must be in standard form.* The re- 
sult has the same form as the non-scalar operand, vec- 
tor or matrix. If the operands are both integer or 
both floating point or both complex, the result is of 
the same type. An integer operand is floated before 
combination with a floating point operand, and the 
result is floating point. An integer operand is 
floated and then made complex before combination with 
a complex operand, and the result is complex. A 
floating point operand is made complex before com- 
bination with a complex operand, and the result is 
complex . 

6) Division of an integer, real floating point, or complex 

non-scalar by an integer, real floating point, or 
complex scalar. 

The non-scalar must be in standard form.* The 
result has the same form as the non-scalar operand, 
vector or matrix. If the operands are both integer 
or both floating point or both complex, the result is 
of the same type. An integer operand is floated be- 
fore combination with a floating point operand, and 
the result is floating point. An integer operand is 
floated and then made complex before combination with 
a complex operand, and the result is complex. A float- 
ing point operand is made complex before combination 
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with a complex operand, and the result is complex. 

7) Implied multiplication between operands which appear 

immediately next to one another, not separated by an 
operation. The same rules apply as for the explicit X. 

8) Exponentiation between integer, real floating point or 

complex scalar operands. 

If either or both operands are complex, the result 
is complex. If neither operand is complex but either 
or both operands are floating point, the result is 
floating point and the base may not have a negative 
value. If both operands are integers, the result is 
an integer, zero if the base is > 1 in absolute value 
and the exponent has a negative value. Note that A 
is typed 'A sup B sub 1 , using the superscript and sub- 
script keys on the flexowriter. The counter associated 
with these carriage moving keys should be set to zero 
before starting a program and mus t return to zero 
before the cr which ends each command. 

9) Exponentiation of a short logical operand by an integer. 

Short logical words are 15-bit configurations whose 
bits are numbered 1 to 15 from left to right. In 
t particular SL (the sense light register) is in the 

vocabulary of the compiler and falls into this 
category. The result of exponentiation of such an 
operand by an integer, as SL , is Boolean, TRUE if 
bit k of SL is 1 (on) and FALSE if it is (off). The 
value of the bit addressed is not affected by the 
operation. The user may also exponentiate a private 
variable which has been declared BOOLEAN. 
10) Exponentiation of a square integer or real floating point 
matrix to an integer power. 

If the matrix is integer it will be floating before 
exponentiation. The matrix must be in standard form.* 
The result is always a floating point matrix. If P 
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is the power and P<0 , the inverse is computed. If 
| P | >0 , multiplication occurs |P"l| times. If P=0 , 
the result is the unit matrix. 

11) Subscripting of a vector by an integer scalar operand 

or of a matrix by a pair of integer scalar operands 
separated by commas. 

The result is an element of the vector or matrix 
and is of the same type (integer, real floating point, 
complex, or Boolean) as the non-scalar of which it is 
an element. The expression Ag is typed 'A sub B sup' 
and return to zero carriage level mus t be observed as 
for exponentiation. 

12) Any non-scalar may be subscripted with a total of five 

integer subscripts separated by commas. The operand 
is indirectly addressed after Bl,...,B5 are loaded with 
the subscripts. An Array may be subscripted at both 
levels in one expression, e.g. ...(A ) ...... where 

A in an Array, is a reference to element L ,M of the 
matrix A-r j ^ . The placement of the parentheses indi- 
cates the break point in the structure and the sub- 
scripting procedure is restarted with Bl. The paren-' 
theses are not necessary for the first level, e.g. 
...Bj, •,..., where B is an Array, is a reference Co 
non-scalar B.r -r- 

13) Relations =, ^ , < 3 -if, <, ^ between integer or real float- 

ing point scalar operands. 

Combination of integer or floating point operands 
with a relational operator yields a Boolean result, TRUE 
if the two operands stand in the specified relation to 
each other, FALSE otherwise. If the operands are not 
both integer or both floating point, the integer op- 
erand is floated before the comparison is made. If 
r and r 1 are relations, the form ArBr'C is tempting 
but not permitted; an equivalent form is (ArB) X 
(Br'C). A precise sequence of typed characters 
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is required: 

=|= is typed * = backspace uc | ' 
{ is typed ' < backspace uc | ' 
^ is typed ' <■ backspace | ' 
Note that the relations > and ^ are not available, but 
> is equivalent to ^ and ^ is equivalent to -(:. 
14) Unary - applied to an integer, real floating point, or 
complex scalar operand. 

The negation of the operand takes place before it 
is combined with any other across a binary operation, 
except exponentiation and subscription. 

15) Absolute value of an integer or real floating point 

scalar operand. 

This inflection is denoted by absolute value bars 
* | ' before and after the operand. These bars are simply 
parentheses that cause the quantity inside to be taken 
with positive sign. 

16) Unary 'not' or - applied to a Boolean scalar operand. 

The complementation of the Boolean operand takes place 
before it is combined with any other across a binary 
operation, except exponentiation and subscription. If 
the Boolean scalar has the value TRUE, then not A has 
the value FALSE; if A has the value FALSE, not A has 
the value TRUE. 



* 
The standard form for vectors and matrices is that handled by 

VSPACE, MSPACE, and the Genie input-output commands. Generation 

and input-output of non-standard forms can only be handled by 

explicit use of SPIREL facilities. 
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The form of a simple arithmetic command is illustrated by: 
A^ari thme tic expression 
) cr | Is t tab 
The form of a compound arithmetic command is illustrated by: 

A=arithmetic expression, B=ari thme tic expression, ... 
| cr | 1st tab 
where more than one equation appears in the command. 

If there are no in terde pendencies among the equations of a 
command, the equations are coded by Genie in the order given. If 
there are interde pendencies , the first equation will be coded last 
and preference will be given to coding the remaining equations from 
right to left; for the second and any following equations, if the 
i depends on the j and i>j (counting from left to right) , then 
the j equation will be coded before the i . So the second and 
following equations may well be used to define subexpressions of 
the first (or primary) equation, producing code that will run 
more efficiently and copy that will be more readable. An example 
in which reordering will take place is 

y=a+b , a=5c/d, b = 6 , c=b+4 
| cr | 1st tab 

The code generated will evaluate b, then c, then a, then y. On 
the other hand, the equations in 

M=P+Q , a=3 , i=j+l 
are not dependent upon each other and will be coded in the order 
given . 

The variable on the lefthand side of an equation may be a 
scalar, or a non-scalar, or a subscripted non-scalar (denoting 
a scalar element of a vector or matrix). All lefthand side 
variables in a command must be distinct, no scalar or non-scalar 
defined more than once. More than one element of the same non- 
scalar may be defined in one command. 

The '=' joining lefthand side to righthand side of an equa- 
tion causes storage of the computed righthand side into the loca- 
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tion or array specified on the lefthand side. Compatibility of 
types is checked for at time of compilation, and an error message 
is printed out if incompatibility of the two sides is detected. 
In every case the righthand side dominates and will be stored as 
calculated, no conversion taking place. If the righthand side is 
non-scalar, the storage addressed by the codeword on the lefthand 
side is freed before the store across the '=' takes place. 

Genie has the ability to apply the commutative laws of 
arithmetic to reorder the terms of an expression to provide cal- 
culation using a minimum number of temporary stores. In the coding 
for a non-complex scalar expression, the compiler may use the 
T-registers of the computer for temporary storage. Push-down 
storage addressed by index register B6 is also used for this pur- 
pose. When profitable, the T-registers are used by the compiler 
for non-complex scalar variables that are referred to often in 
an equation. The codeword at machine address 10 (octal) is 
used in the code generated by the compiler as an accumulator for 
real vectors and matrices produced in the course of evaluating 
the righthand side of a non-scalar equation. This address may 
not be used by a coder. The accumulator for complex non-scalars 
is named CSTAR. Temporary storage for non-scalars is always on 
the B6-list. 



CONDITIONAL ARITHMETIC COMMANDS 

A simple arithmetic command may be of condi tiona 1 form, as 
illustrated by 

A = E if P E_ if P. , ..., E if P , E ,, 
1 12 2 n n n + 1 

| cr i 1st tab 

where each E. is an arithmetic expression and each P. is a 
i ^ i 

predicate which is either true or false. The code that is 

generated will evaluate A as E. for the least i for which P. 

i i 

is true. If every P. is false, then A is evaluated as E 

i n + 1 

If E ^ n is omitted, then A is not evaluated at all if every P. 

n+1 ' J i 

is false. 

Boolean valued expressions are predicates, as in the follow- 
ing examples : 

K = 1.0 if B<C, 2.0 if x<-12.9, 3.0 

K = 1.0 if not (SL n ) , 3 .0 

K = 1.0 if SL 5 + not (Si/ 1 ) 
I cr I 1st tab 

Boolean valued expressions joined by the operations 'and' and 'or 1 
form predicates, as in the following example: 

K = 1.0 if (B<C or JC + d| ^ 3.72) and SL 5 + not (SL n ), 

2.0 if x<-12.9, 3.0 
j cr | 1st tab | 2nd tab | 3rd tab 
The most binding first, the operations are ordered as follows: 

arithmetic operations 

'and' 

'or 1 
Parentheses may be used, as in the above example, to dictate 
computational order. 

The predicate form F x r F 2 r' F 3 is tempting but not per- 
mitted. An equivalent permissible form is 

Fi r F 2 and F 3 r f F 3 
or (Fx r F a ) X (F a r* F 3 ) 

Two exceptional Boolean predicates are 'EOV 1 , asking if the 
exponent overflow light is on, and its negation 'NEO'; neither 
of these may be inflected by 'not'. Both of these tests turn the 
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light in the indicator register off. 

A conditional arithmetic equation must stand alone as a 
command. It may not be grouped with other equations in a com- 
pound arithmetic command. 



TRANSFER CONTROL COMMANDS 

Code is generated so that the commands of the program are 
normally executed in the order written. An explicit variation 
in this order is indicated by a transfer command, illustrated by 

CC = #LOOP or GO TO LOOP 
| c r | Is t tab 

Here 'CC 1 is the mnemonic for the control counter which is nor- 
mally stepped sequentially through the orders of the code. 'LOOP' 
is a label on a command of the program, the command to which con- 
trol will be passed by this transfer command. Note that 'END 1 is 
a label in every program and may be transferred to for exit from 
the program. The inflection '#' is required in this context to 
indicate that the address corresponding to LOOP, and not the con- 
tents of the location whose address is LOOP, is to be calculated 
on the righthand side. The '#' inflection is analagous to the 
'a ' bit in API . 

The conditional transfer command provides variation in the 
order of command execution depending upon the truth values of 
predicates. The form of this type of control command is shown by 

CC = #A X if Pi, #A 2 . if P 2 , ..., #A n if P n , #A n + 1 or 
| cr | 1st tab GO TO \ if ...etc. 

where the Aj are labels within the program and the P t are predi- 
cates. The code generated causes CC to be evaluated as the first 
#A< for which P 5 is true. If no Pj , for i = l, 2, ..., n, is true, 
CC is evaluated as #A n + a . The term #A n + l may be omitted from the 
command, in which case CC is unchanged if all P i are false, so 
that no transfer is made. The predicates P t are of the form de- 
scribed in the section on conditional arithmetic commands. 



GENIE July, 1968 



LOOP CONTROL COMMANDS 

Loops may be realized in Genie language by a combination of 
arithmetic commands and transfer control commands. A concise nota- 
tion for a popular loop structure is provided by the loop control 
commands . The commands of a loop are parenthesized by the FOR and 
REPEAT commands of the form 

FOR P=A , B , C 

commands of the loop 

REPEAT 
| cr | 1st tab 

The elements of the FOR command are 

parameter of the iteration, P 

initial value, A 

increment , B 

f ina 1 va lue , C 
All elements must be scalars, either integer or floating point. 
In execution, the loop is traversed for P = A + kB , for all 
k = 0,1,2,... such that 

P < C if B > 
P S: C if B < 
The element P must be given as a simple variable name. The ele- 
ments A, B, and C may be given as constants or arithmetic expressions 
of integer or floating point type. Only if B and C are given as 
simple variable names may their values change during execution of 
the loop. Otherwise, B and C retain their values on entry to the 
loop throughout the execution of the loop. For example, in the 
loop 

FOR COUNT = FIRST, M+N , LAST 

Nr=A+B 

REPEAT 
the increment value will remain constant, as computed on entry to 
the loop. 

In the REPEAT command, 'REPEAT' is followed immediately by a 
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'cr'. A REPEAT must be written for every FOR. 

If addressed from outside the loop, the iteration parameter 
has the value it had upon exit from the loop. 

Loops may be nested to any level, but distinct iteration 
parameters must be used at each level within a nest. The 'REPEAT 1 
is considered to be within the loop which it terminates; the 'FOR 1 
is not. Transfer of control may be made from a command within a 
loop to another command within the loop or to a command outside 
the loop. Transfer from outside a loop to the FOR command is per- 
mitted, but transfer from outside a loop to a command within a 
loop is not permitted. 

Any 'FOR' or 'REPEAT' may be labelled for purpose of transfer 
to it. The compiler generates the label t *-FORn' on each FOR 
command and '«-RPTn' on the corresponding REPEAT command, 
n = 1, 2, ..., 9, a, b, ... in each program. A coder's label 
will be used instead if it appears. Thus, FOR and REPEAT commands 
begin command sequences whether or not they are labelled by the 
coder . 

The machine index registers B3 , B4 , B5 may be used as itera- 
tion parameters in loops and will cause significantly more effi- 
cient code to be generated, especially when a constant increment 
= ± 1 is specified. The section on fast registers discusses 
coder usage of machine registers. 
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Before a vector or matrix is referred to dynamically in a 
program it must be created, either initially from paper tape or 
dynamically while running. 

In a Genie program, to crea te , or take space for, the vector 
named VNAME of length NELTS elements the following command is 
used: 

EXECUTE VS PACE (VNAME , NELTS) 
| cr j 1st tab 

The vector VNAME contains zeroes initially. To create , or take 
space for, the matrix named MNAME of NROWS rows and NCOLS columns 
the following command is used: 

EXECUTE MSPACE(MNAME , NROWS, NCOLS) 
| cr | 1st tab 

The matrix MNAME contains zeroes initially. The dimension arguments 
in both commands are integers. 

The dimension arguments may be computed dynamically, so that 
sizes of vectors and matrices may vary from run to run. In fact, 
the dimension of an array may vary during a run by use of a crea- 
tion command to 'recreate' an array which already exists; the old 
copy is automatically erased before the new one is formed. 

To explicitly erase , or free the space occupied by, a vector 
or matrix named ARRAY on which the calculation no longer depends 
the following command is used: 

ERASE ARRAY 
| cr j 1st tab 

Also a single ERASE command may be applied to more than one non- 
scalar, as illustrated by: 

ERASE VNAME , MNAME , ARRAY 
| cr | 1st tab 

The erasure of a vector or matrix causes the storage occupied 
to be returned to a common pool, that from which storage is obtained 
for the creation of vectors and matrices. This pool is managed by 
STEX, the storage exchange program in SPIREL (explained in detail 
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in the literature on SPIREL), and it is called the STEX domain. 
STEX may move items within its domain to concentrate space if 
necessary to satisfy requests for space. 



EXECUTE CONTROL COMMANDS 

The command 

EXECUTE PROG(PARAM) 
|cr | 1st tab 

causes control to be transferred to the program whose name is 
denoted by 'PROG' in this illustration. 'PROG' must have been 
declared as a function outside the command sequence for the cal- 
culation. 'PARAM' denotes a list of one or more parameters 
separated by commas. Parameters may be arithmetic expressions un- 
less they designate quantities which are to be calculated by the 
function, in which case they must be simple variable names. Con- 
trol is returned from PROG to the next command in the sequence. 
The interpretation given to the EXECUTE command by Genie is 
parallel to that for the arithmetic command, the information to 
the right of the space after the EXECUTE corresponding to that 
after the first '=' in an arithmetic command. Thus, a simple 
conditional EXECUTE command is allowed, such as 
EXECUTE A(P) if a < b + c, B(Q) 

| cr | 1st tab 

And a compound unconditional EXECUTE command is allowed, such as 
EXECUTE SUM(x,y), x = 2a/b, y = ab , b = 4 

| cr | 1st tab 



INPUT-OUTPUT COMMANDS 



The input-output commands are: 



DATA list 
PRINT list 
PUNCH list 
DPUNCH list 



READ list 
INPUT list 
OUTPUT list 
DISPLAY list 



tpAGE list 
ACCEPT list 
TITLE string 




| cr | 1st tab 

where "list* denotes a collection of names separated by commas. Any 
name may be that of a scalar, other than fast registers, or of a stand- 
ard vector or matrix or of a function. Expressions may not appear in 
the argument list, so vector and matrix elements in the subscript 
notation may not be designated. 

The DATA command provides reading of manually punched signed 
decimal numbers from paper tape. The name of any type of variable 
may appear in the list, and any name may have been assigned a machine 
address in a LET statement. When the paper tape is read, if a decimal 
point appears the number will be converted to floating point within 
the machine; the absence of a decimal point causes conversion to in- 
teger form. Every number on the tape must be followed by a carriage 

14 
return , tab , or comma . Integers greater than or equal to 2 in ab- 
solute value are meaningless; floating point significance to more 
than 14 places is not meaningful. A floating point number may be 
followed by the sequence '* signed integer' which will cause it to be 

multiplied by 10 to the signed integer power upon conversion. The 

-70 



magnitude of such numbers must be greater than 10 

10 . The absence of a sign on a number implies positive sign 



converts to 



punched 328cr. 
46.9cr 
.469*2cr 
-5391cr 
-69.*-lcr 
tBlank or numbers 1 through 7 only 



but less than 

Then 

integer 328 
floating point 4 6.9 
floating point 4 6.9 
integer -5391 
floating point -6.9 
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Integers and real floating point scalars are punched as single deci- 
mal numbers in the appropriate format; complex scalars are punched 
as real part followed by imaginary part, both floating point. 
A vector of length n is punched as the sequence of n+1 decimal 
numbers: integer n, first element, ..., n element. A matrix 
of m rows by n columns is punched as the sequence of mn+2 numbers : 
integer m, integer n, element (1,1), element (1,2), — , element 
(l,n) , element (2,1), ..., element (2,n), — , element (m,l), ..., 
element (m,n) . When the DATA command is executed, the proper 
tape is assumed to be in the reader. If sense light 14 is off, 
the line 

DATA NAME 
| cr | 1st tab 

will be printed out for each quantity read, where 'NAME* is as 
designated in the program containing the READ command. Thus, 
printer monitoring of DATA applied to parameters bears the dummy 
parameter name, not the name of the argument supplied as the 
parameter. 

The PRINT command provides decimal output on the fast line 
printer of any named scalar or non-scalar quantities. These are 
labelled by the name given in the argument list. Any name may 
have been assigned a machine address in a LET statement. Scalars 
are printed four per line. Vectors are printed five elements per 
line, the leading element index in octal at the left of each line. 
Matrices are printed by row, five elements per line, the leading 
column index in octal at the left of each line. Complex variables 
are printed as real part followed by imaginary part; the name of 
the variable will be given with the real part, and "ditto" (printed 
>♦_____•) will label the imaginary part. 

The PUNCH command and the READ command may be applied only to 
external variables and to parameters representing arguments which 
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Formatted printer output may be obtained by use of the command 
EXECUTE SCRIBE (Al ,... ,AK,F) 
I cr | 1st tab 

where A1,...,AK is the list of arguments to be printed, and F is 
the name of a FORMAT statement to be used. Any argument in 
A1,...,AK may be a simple name or an expression. The program 
SCRIBE is in the library, and its use is fully described in the 
library literature. A FORMAT statement gives text which will be 
printed directly by SCRIBE and dummy variables which will be re- 
placed by argument values. 

Page control and headings are provided with formatted printer 
output by use of the command 

EXECUTE PRESCRIBE (Al, . . . ,AK,F ,N, NAME , LIMIT) 
| cr | 1st tab 

where A1,...,AK,F are just as for SCRIBE, N is the number of blank 
lines after SCRIBE output, NAME is the name of a FORMAT statement 
containing pure text or a vector of BCD data to be used in the head- 
ing on each page, and LIMIT is the number of lines per page of out- 
put. The program PRESCRIBE is in the library, and its use is fully 
described in the library literature. 

Additional forms of input and output may be obtained by use of 
SPIREL programs directly, but those provided by the input-output 
commands should be sufficient for a large number of problems. Also 
see the TITLE and PAGE commands on p. 5. 

The DPUNCH command may be applied only ho external variables 
as explained earlier in the PUNCH command. DPUNCH provides standard 
decimally formatted punched tape to be later read by a DATA command 
onlv_. Mixed integer and real data may be punched from scalars, 
vectors or matrices. 
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The TITLE command allows the printing of a string of literal 
symbols for labeling pages like SCRIBE only with greater ease. Two 
examples are given below. One would write: 
TITLE PRINT ONE LINE HERE 
TITLE 
PRINT ANOTHER LINE HERE ALSO 
| cr j 1st tab 

The above would cause the following to be printed: 
PRINT ONE LINE HERE 
PRINT ANOTHER LINE HERE ALSO 
+ 
(first printer position) 

The PAGE command allows the page to be moved to any position or 
by any amount easily. The 'list' consists of the integers 1,2,..., 7 
or no list, i.e., blank. The interpretation of the integers is given 
by the table below: 
integer ■* move to next page 

1 -*- move to next 1/66 page (one space) 

2 -*■ move to next 1/22 page 

3 -*■ move to next 1/11 page 

4 ->■ move to next 1/6 page 

5 -*■ move to next 1/3 page 

6 -*■ move to next 1/2 page 

7 -> move to full page (page restore) 
If the list is blank, the page is restored. 
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The ACCEPT command provides reading of data input through the 
console typewriter. The name of any type variable may be included 
in the list. Data may be entered when the blue light on the type- 
writer comes on; each line is processed before another may be typed. 
Decimal numbers are handled as in the DATA command; octal numbers 
must be preceded by a + sign. T... or F... is typed for the Boolean 
values. All values must be separated by commas and a line is ter- 
minated by a carriage return. For a vector or matrix of size n or 
nxm, n or nxm values must be typed. To change the size of a non- 
scalar, the new dimension (s) is enclosed by parentheses (n) or (n,m) , 
and followed by the values to be stored. A matrix is typed by rows 
(as it is read in DATA) . For example, where A is a vector 3 long, 
B is Boolean, and C is scalar: 

ACCEPT A,B,C 

typewriter input: -234.0, 8.34*4, .62023, T, +0142000000 cr 
stores the first 3 values in A, -Z in B , and the octal number in C. 

typewriter input: (4), 8.0, 9.0, -10.0, 11.0, FALSE, 345 cr 
erases array A and creates a new one of length 4, stores the next 
4 values in A, -1 in B, and decimal value 345 in C. 

typewriter input: ->-, T, +002345 cr 
leaves A as it is, stores -Z for B, and the octal value for C. The 
"forward arrow" is inserted whenever an item in the list is to re- 
main unchanged. If sense light 14 is off, the line 

ACCEPT NAME 
will be printed out for each quantity in the list (as in the DATA 
command) . 
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LIGHT CONTROL COMMAND 

The SET command provides program control over sense light setting. 
It is illustrated by 

SET not SL 5 , SL , SL , not SL 
| cr | 1st tab 

Any number of sense lights may be set. The notation * SL ' causes 
SL 1 to be turned on; 'not SL 1 ' causes SL 1 to be turned off. In 
'SL 1 ' i must be numeric and may range from 1 to 15. The lights are 
set in the order mentioned. 
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DATA COMMANDS 

Data commands cause generation of words in the program which 
are not instructions. These commands are not executable and all 

but FORMAT must be transferred around. 

Alphabetic information for output on the printer may be de- 
fined by the BCD command , as illustrated by 

MESS1 BCD TEMPUS_FUGIT 

or 

MESS1 BCD 

TEMPUS_FUGIT 

| cr | 1st tab 

where 'BCD' is followed immediately by a single space or a 'cr 1 

which is not part of the data, and _ indicates a typed space. The 
command may continue onto succeeding lines at the 3rd tab position 
by use of the 'cr tab tab tab' sequence. A space is inserted by 
Genie between the last character of one line and the first of the 
next line. At the place such a BCD command appears in the command 
sequence for the program, the printer code for the information is 
inserted in the code for the program, nine characters per word. 
The label (if any) on the BCD command is associated with the first 
wor d of da ta . 

A block of numeric data may be defined by the NUMBERS command , 
as illustrated by 

CONST NUMBERS 36.5, -2*8, 6, +774777 

| cr | 1st tab 

In the program Genie generates, in this case, 

floating point 36.5 at CONST 

floating point -2.0 X 10 at C0NST+1 

integer 6 at CONST+2 

octal 774777 (right -ad jus ted) at CONST+3 
One or more real numbers (each but the last followed by a comma) are 
listed; complex numbers may not appear in the list. The list may 
be extended onto the succeeding lines by use of the 'cr tab tab tab' 
sequence. The numbers are inserted into the program in the order 
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DATA COMMANDS 
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given, one per word. The label (if any) on the NUMBERS command 
is associated with the first word of data. 

Formats for the printer output programs SCRIBE and PRESCRIBE 
are defined by the FORMAT command , as illustrated by 

LINE FORMAT ddd ITERATIONS, CASE aa, K=bb , T=-d.ddce+d 
or 

LINE FORMAT 

ddd ITERATIONS, CASE aa , K=bb , T=-d.ddce+d 
| cr | 1st tab 

where 'FORMAT* is followed immediately by a single space or a 'cr' 
which is not part of the data. The label on the FORMAT command is 
the name of the FORMAT which is an argument to the output programs. 
The format data is a "dummy line" of printer output; lower case 
letters and the characters '., +, -* with *d' form dummy variables 
for which argument values are substituted when printing; the rest 
of the format data is text which is printed directly. SCRIBE and 
PRESCRIBE are programs in the library; their use and the details 
of format specification are explained fully in the library 
literature. 
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FAST REGISTERS 



It is never necessary to use machine registers in the Genie 
language. But their use is permitted, with certain restrictions 
and with effect that more efficient code may be obtained. 

T7 should never be used in the Genie language. 

T6 , T5 , and T4 may be used as the names of scalar variables 
wi thin a command. The compiler will not make use of any T-register 
mentioned by the coder, and code efficiency may be increased by 
explicit assignment of auxiliary variables to these fast registers. 
The values in T6, T5 , T4 are not preserved by Genie from one command 
to another as they are subject to use by the compiler in any command 
in which they are not explicitly mentioned by the user. 

The index registers B3 , B4, B5 may be used as the names of 
scalar integers. These are disturbed by Genie -genera ted code only 
to address elements of arrays of more than two dimensions. (Non- 
standard subscripting is discussed in the section on arithmetic 
expressions.) Efficiency of code is gained if these registers are 
used as subscripts or as iteration parameters of loops with con- 
stant increment ±1. The index registers Bl and B2 may be used 
only if the user understands Genie coding conventions are explained 
in another section and can accurately anticipate the use of these 
registers by Genie generated code. The registers B6 and PF may not 
by used in Genie language. 



ASSEMBLY LANGUAGE 

In a Genie program, instructions in the AP2 assembly language 
may be interspersed at will with commands in the Genie language. 
AP2 is discussed in detail in the assembly language literature. 

The following names identify fast registers in both Genie 
language and AP2: 

T4 T6 CC B2 B4 

T5 T7 Bl B3 B5 
The following names identify private quantities in Genie language 
and fast registers in AP2 

R B6 U I 
S PF X 
Therefore, a private name I in Genie language may not be addressed 
in AP2 code . 

Operations without mnemonics in the AP2 vocabulary may be 
coded in octal, as 

+45061 #15 
| cr | 1st tab | 2nd tab | 3rd tab 

Or an operation code mnemonic may be assigned with a LET statement, 
as 

LET #QSR = +450 61 
Then the instruction 

QSR #15 
could be used instead. 

In AP2 commands, the coder may make use of the fast registers, 
taking care to preserve the value of PF for reference to parameters 
and to use B6 for temporary push-down storage only. Entire func- 
tions may be written in the assembly language, but the user must 
first understand various Genie coding conventions, as discussed 
in a later section. 

Normally for a Genie program initial and terminal program 
sequences and code to preserve parameter addressing are automa- 
tically generated by the compiler. For some programs coded pre- 
dominantly in AP2, it may be desirable to avoid generation of or- 
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ders not explicitly coded. This may be accomplished by using 'ORG' 
in place of ' SEQ' , as 

PROG(PARAM) .= ORG 
j cr 

to start the command sequence for the program. The first instruc- 
tion of the program will be the first explicitly coded. The only 
words in the program generated automatically by the compiler are 
cross-references to external quantities and a one-word END pro- 
gram s equence : 
END TRA Z 

The programmer must code parameter set-up for the program, maintain 
PF and B6 by Genie coding conventions. 



PUNCTUATION 

Reference to rules of punctuation for use in the punching of 
Genie programs has been made in other sections. A few generalities 
and notes here may help the user to avoid some of the most common 
mis takes . 

Every tape must begin with a 'cr' punch and a case punch 
for proper interpretation. 

Every line should begin with a case punch so that it 
does not depend on the case at termination of the preceding 
line, and editing of tapes will be thus simplified. 

Spaces may appear anywhere but within a name; they will 
be ignored. 

Backspaces are ignored except within the sequence of 
punches for negated relations. 

The superscript and subscript punches should be used only 
where meaningful; the sequences 'sup sub' and 'sub sup' are 
not equivalent to no punch at all and will not be accepted 
by the compiler. 

The carriage counter should be set to zero before typing 
a program and must return to zero before the 'cr' which ends 
each statement. 

A statement is continued onto second and succeeding 
lines by the sequence of punches 'cr tab tab tab' . 

The operation '.=' must be punched as just those two 
characters in succession. 

The negated relations require specific sequences of 
punches for proper interpretation: 

4 is punched ' == backspace uc | ' 
<f is punched '< backspace uc | ' 
^ is punched ' <• backspace | ' 

The operations 'not' , 'and' , 'or' , 'if' are punched in 
lower case and must contain no superfluous punches. All other 
"words" in the vocabulary of the compiler are punched fully 
in upper case letters. 
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Statement labels, the program name, function definitions 
'END', and 'LEAVE' are typed at the margin; alternatively, pro- 
gram names and function definitions may be typed at the 1st tab 
position. 

Since ' SEQ ' , 'END', and 'DEFINE 1 end statements, they 
must be followed immediately by a 'cr' punch. 

Declaration identifiers, 'DATA', 'EXECUTE', 'FOR 1 , 'LET 1 , 
'NUMBERS', 'PRINT', 'PUNCH', 'DPUNCH', 'READ 1 , 'SET 1 maybe 
followed by either a space or a tab punch. 

'BCD', 'FORMAT*, 'REM' may be followed by a space, a tab, 
or a carriage return punch. 

For compilation to be terminated properly 'LEAVE 1 must 
be followed immediately by two 'cr' punches. 
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COMPILATION PROCEDURE 

A Genie program is compiled by exercising option #6 in the 
PLACER system. 

Compilation output on the printer consists or error messages, 
program listing, and symbol tables. These are discussed below. 
Compilation provides a punched paper tape to be loaded under SPIREL 
control. Compilation options are also discussed below. 

Error messages . Genie error messages refer to carriage return 
number on the PLACER listing of the program. During compilation 
the carriage return number for the line being compiled is displayed 
in FT (the from-tape register). This can be useful if compilation 
problems arise with no error message. If a single command, state- 
ment, or instruction is continued onto more than one line, the 
carriage return number for the last line will pertain throughout. 

Program listing . Four columns are printed, giving: 

The symbolic location (if any). 

The relative location of the word in the program, 

in octal . 
■The instruction in octal, broken into fields, with 

tag. 

The symbolic address (if any). 
Cross reference words and internal storage are listed after the 
instructions of the program, one per word with name, relative 
location, and content for each. The variables referenced relative 
to PF are then listed with name and PF increment. 

Symbol tables . For each program a symbol table of internal 
names is printed. Of interest are columns which give the name and 
the relative location in the program (two to the right of the name), 
The column to the right of name contains descriptive information 
about the variable, by digits: 
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first - type 1, Real (floating point) 
2 , Integer 
4 , Boo lean 
5 , Comp lex 

second - shape and mode 0, Scalar 

1, Scalar function 

2 , Vec tor 

3, Vector function 

4, Matrix 

5, Matrix function 

6 , Array 

7, Array function 
third - 0, not a parameter 

1, non-scalar parameter 

2, scalar parameter 

After the internal symbol table a list of programs used is 

given. If a program is in the library, its name is prefixed 

by 'GENIE*. If a name is used, this is given. If a number is 
used, this is given. 

For each definition set a table of external names is printed 

in which only the names and descriptive information (as above) are 
o f in teres t . 

Compilation options . See PLACER-TRANSLATE. 
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RUNNING GENIE PROGRAMS 

The usual procedure is to run Genie programs with SPIREL so 
that all library routines are immediately available. 

The initial version of a program should contain liberal out- 
put of intermediate quantities. These may be conditioned on sense 
light settings or edited out once the program is running. 

Initial runs should be made with SL14 off so that printer 
monitoring is provided for all SPIREL operations. 

Debugging may be facilitated by a SPIREL dump of the positive 
portion of the Symbol Table-Value Table. This will show all named 
external items in the system being run, the values of scalars, and 
the codewords for non-scalars . 

A SPIREL dump of a private program will show values of internal 
variables . 

Arithmetic error tracing may help to locate mathematical 
problems . 

All instructions generated by the compiler may be traced, but 
this is not a recommended procedure. 
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CODING EXAMPLES 

• Least Squares 

This program computes the coefficients of a polynomial of 
specified degree which best fits the input data in the least squares 
sense. The basic method is described in "An Introduction to Numeri- 
cal Mathematics", Stiefel, E.L., 1963, page 51. The only difference 
here being the introduction of weighting factors to the data and 
the use throughout of matrix algebra. 

Lines 6 to 13 : 

Internal integers are declared and then stored into; the 
number of rows of XDATA and the length of COEFS (the number of co- 
efficients is compared. 

Lines 14 to 45 : 

The size of XDATA is expanded and is filled with the appro- 
priate powers of X. 

Line s 4 6 to 55 : 

The normal matrix is computed taking the weights into account. 

Lines 5 6 to 67 : 

The coefficients, theoretical polynomial values, residues, sum 
of the squares, and the covariance matrix are computed. 

Lines Comments 

4 Some of the parameters, the non-scalars, are 

dec la red . 

6 Notice lower case alphabetic print output for 

characters beyond 'f ' , 

14-40 This AP2 code constructs control words for 

SPIREL to act upon; notice the labelled instruction 
a t line 35 . 

41-45 Double or nested looping. 

47 A matrix transpose is done here. 

56-57 Non-scalar multiplications. 
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Lines 
60 
63 
67 



Comments 



Solution of a system of equations. 

Line is labelled but not referred to. 

Use of matrix exponentiation to compute inverse 
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TSR 


*L777'3 




SPF 


*L307 




CLA 


P c +3^U-Bl 


7 


TSR 


»1 *5*'.,'*B2 




S<=F 


*l. 307 


7 


LOR- 


n*R*«»2 


P 


STO 


6! 


PI 


RWT 


B = 




CLA 


P r #U*T7 




TSR 


*L77775 




SPF 


*L307 




CLA 


P"+3jI.UB2 


Z 


TSR 


*L77774jij*B 




SPF 


*L307 




CLA 


P^*4#U*B| 


7 


TSR 


*I35*!'*B2 




3PF 


*L307 


7 


l_DR- 


li,R*H 2 


P 


STO 


bl 


PI 


RWT 


B"? 




CLA 


P^+ljlUBl 
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P="+4/U«B2 




TSR 


*L777?2 




SPF 


*L307 




CLA 


P r +5*"*Bi 


7 


TSR 


*l 35*'.<*B2 




SPF 


*L307 


7 


LDR- 


J 1,R*H 2 


F 


STO 


bl 


PI 


RWT 


b^ 


7 


STO 


* 3 F+6 


T 


STO 


L^15 



PAGE 



167 

170 
171 
17? 
173 

17* 

I 75 
176 

177 

200 
?01 
POP 
?03 
20* 
PO^ 
20* 
?07 
'10 

?11 
PI? 
2(3 
?1* 
?15 
?16 
217 
220 

?ai 

?2? 
?23 
22* 
225 
?2f 
?27 
P30 
?31 
?3? 
?33 
23* 
?35 
?3f 
P37 
2*0 
2*1 
2*? 
P*? 
?** 
?*F 

?4f 
?*7 
?5C 
?5\ 
?5? 
?5? 
25* 
?55 
256 
257 
?60 
?61 
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27 
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L24^ 




CLA 


L3H 


26? 






IHPO^ISKP 


L315 


26? 






TRA 


L'64 


?64 






CLA 


L3l5il'-T6 


?6? 






EI740 


y»u*^\ 


266 






21740 


a^F+S 


267 






FMP 


\J> J*T'J 


270 






21740 


T<SjIJ**1 


271 






21740 


*=>F+p 


27? 






FAD 


T*. 


273 






FAD* 


* a F+6 


274 




T 


FAD* 


L315 


27? 






TRA 


L^H7 


?7* 


L26-' 




21740 


L^l I 


?77 






SUB 


L312 


300 






53100 


-J 


301 






FMP 


L316 


302 






VDF 


*°F+6'U*T4 


3 3 






L.D3 


-=U 


304 






CLA 


P^+7 


30? 
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*L777" 7 1 


30ft 






SPF 


*L307 


3Q7 






SBI 


10 


310 




T4 


TSR 


*L77770 


31 1 






SPF 


*L307 
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CLA 


P="+7<U«Bl 


313 




7 


TSS 


«! 35*L'«82 


"5)4 






b D F 


*L307 


31? 




7 


LOR* 


n*R* w 2 


316 




F 


STO 


b! 


317 




PI 


RWT 


b' 


320 






TRA 


*! 37 


?2I 


L30 7 




SB6 


Z 


22? 




T7 


TRA 


P" 


323 


L3P 




OCT 


o^oo p oooooooooooc 


324 


L31' 




OCT 


ooooo^ooooooooooor 


32^ 


L3p 




CCT 


0^300^000000000000 


32ft 


LSI" 




OCT 


ooooo^ooooooonooor 


327 


L3l* 




OCT 


ooooo^ooooooooooor 


330 


L31* 




OCT 
£N0 


0^2OO n O0O00O0OOOCC 


331 

33? 
33? 
?34 
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• Numerical Integration 

This example is adapted from Schwarz (An Introduction to 
ALGOL 60. Comm ACM 5:82-95 (1962)). It concerns the numerical 
integration of a differential equation of second order with given 
initial values. Schwarz chose the method of Adams' extrapolation, 
which consists of the following formulae: 

y(x+h)=y(x)+hy , (x)+h a [£y' « (x) +|-Vy " (x) +-|v s y » ' (x)+...] 

y , (x+h) = y , (x)+h[y"(x)+^V y "(x)+ I |-V 2 y ,, (x)+...] 

where the V y ' ' (x) are the backward differences of y 1 ' at the point 
x and for the interval h. In contrast to other proposals, he 
starts the integration by an iterative process (lines 62 to 74) 
which uses the same formulae as the forward integration (lines 
76 to 123) . 

The example consists of three separate programs: 
EXAMPLE3 , a control program to handle input and output and execute 
the integration program; F, the function being integrated; and 
ADAMS, the numerical integration routine. EXAMPLE3 activates STEX 
and initiates output with a page restore and heading print, then 
goes into a loop in which it reads four input data from paper tape, 
performs the integration, prints the input and results, and returns 
to read more data. ADAMS receives X0 ,Y0 ,Z0 , and XE as input (with 
the dummy names XX,YY,ZZ, and EE). M, B. , and the final results 
X,Y, and ZED are external to both EXAMPLE3 and ADAMS. 

The integration is based on the following procedure: 
The leading row of backward differences (which are unknown at the 
beginning) is first filled out with zeroes (line 52). With this 
leading row we integrate M steps ahead with the formulae of Adams 
(line 64) , since R in the loop named ADMINT means the number of 
steps to be integrated. After this we may build up a new difference 
table from the M row backwards by keeping the M difference con- 



CODING EXAMPLES 

4 

stant (lines 67-73). In this way we obtain a new leading row of 
backward differences, with which we again integrate M steps forward. 
This is repeated until the M difference of two successive runs are 
nearly equal (lines 65-66 and 74; note that WE is the M difference 
of the preceding run). As soon as BETA is FALSE, we start inte- 
grating ahead a sufficient number of steps to reach XE (lines 76 to 
123) . 

Lines Comments 



13-16 An AP2 sequence is used to initialize output 

and activate STEX. 

61-63 Note use of the power point in arithmetic 

expres s ions . 

17,23,24, Input and results are printed with SCRIBE. 

27-34 The arguments in the EXECUTE command correspond 

in number and order to the dummy fields in the 

FORMATS . 

H-12, The REM may be followed by either a tab (lines 

42-46 42-46) or a carriage return (lines 11-12). The same 

is true of FORMAT and BCD. 

52-60 Extra spaces are ignored. 

37 This line illustrates both the definition of 

a function in a single line and the use of an 
auxilliary equation to evaluate a common sub- 
express ion . 

51 Execution of VS PACE leaves zeroes in the vector 

for which space is taken. This initializes W for 
the first pass through the loop. 

61,65,66, If a name occurs for the first time on the 

61,63 lefthand side of an equation, its type is inferred 

from the righthand side. Thus, DECIDE and BETA 
are inferred to be Boolean in lines 61 and 63; R, 
J, and V are inferred as integers in lines 61,65, 
and 66 . 

63 BETA is evaluated as TRUE if 10" 7 <|w -WE j ; 

otherwise BETA is evaluated as FALSE. 



Lines 

72,76,105 
122 



22&41 
102&37 



123 
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Comments 



These are all conditional equations. Lines 
76 and 105 illustrate arithmetic conditionals; 
lines 72 and 122 illustrate Boolean conditionals. 

The values to be used at each execution of 
a function are passed to the function as an ordered 
argument list, with the arguments corresponding 
in number and type to the parameters in the defini- 
tion of the program. 

The vectors for which space was taken at the 
beginning of ADAMS are freed at the end. 



4/l9/6f 13.34 



FCALARS XO*YO*ZO*XF,M # X>v,ZE" 
INTEGER M 
VECTORS BjC#W 
FUNCTIONS F#aDAMP 



EXAMPLES! 7 ).=SEQ 

rem" 
thi=- is the driver program. 

PA3 

SLN 

LT7 

TSR 

FXFCUTF SCRIqEIHFArER) 
M=<,> H=0, Ol 
LOO p TATA XO^YO^zriXE 

FXFCUTF ADAMe;(X0'Vn,70/XE) 
EXECUTE SCRI PE I Mi H, *n t YQ, ZO.i I N ) 
FXECUTE SCRInEIX'Y*Z r D#0 ! lT) 



RAGE 1 

I 

? 

3 
4 

c 

f 

7 
10 
I I 
TT CONTROL? INPUTj INTEGRATION, AND OUTPUT 



*7 

+1000? 

+1Q00O 3]?0 0000 00 1 35 

*+|26 



HEAHEP 

M 

IN 

d 
OUT 

END 



SPA 

rc=*i_oop 

FORMAT 

FORMAT 
d. dHddd -dddddt ddddd 



FORMAT 



-ddddH, ddHdc! 



YO 
-ddd^d. ddddd 
-ddd*d. dHdHd 



ZO 
"ddddd. dcHdd 
"ddddd. doddd 



F(X V .»YY»Z7>=£Z<SIN(TMP) + C0SCTMP1+YY +?>' TmP=XX+YY+ZZ 
ADA^S(XX,YY*ZZ#EE). =SEG 



13 
14 

15 

1* 

17 
20 
2! 
2? 
23 
24 
25 
26 
27 
JO 
3! 

33 

i 
3? 

3* 

37 

40 
41 



XX/YY.ZZ AF^ THE INITIAL VALUES FOR X#Y.Y HRlME 

4? 

44 

45 



REM 

PtM h IS THE ORDEP OF THE METHOD ( *6 ) 

rem ee is the lf<d of the integration 

pem h is thf integration step 

rem w q is the second oerivative, w k the kth sack diff. 

execute v3pa<~e<b.7) 47 

FXECUTE VSPAr£(C»?] 50 

FXFCUTF V3PAr£M,M+l ' 51 

Pj = 1.j C,=o, f 5? 

P,.=0. 5' 

c 

p 3 ~5. /12, > r ,= !./*$, 



c =0, F 
C ? =!i /6. 



P =3. /8. , 

4 

P_=2 [ 5i. /720. , 



C , = 1 9. / t 30. 

it 



C c .=3,/3? ! 



53 
54 
55 
5f 



V19/66 1 3. 24 PAGE 

C<_=*63' '100*0. 

C ? =?75, /3hSf-. 



L00^ 
RUNT 



MSHTFT 



END 
LEAVE 







C 6= 


B =190*7t /60*80« > 




WE=1*|0' R=Mj 


DECIDE: 


-TPU 


CC=*A3MINT 






PETA=1*-7<I Vl M - 


-WEI 




W£=W M 






FOR J=M>-1* 1 






FOR V=P, 1/M 






W = rt -w 
V V V+l 







PEPEAT 
PEPEAT 

CC=*LOOP .If 3ET* 
PiFjX( (XE-XX)/H)* nE r IDE=FAL^E 
ADMTNT V-XX* Y = YY# 7E0=7Z 
FOR J=l/ 1 jR+i 

rc=*Li4 ,ir j=i 

FOR V=M,-1, l 

w =w 

V+l V 
REPEAT 
LU w =FIX-«Y'ZEDl 

REM F IS THE FUNCTION DEFINING THF 
REM DIFFERENTIAL EQUATION 
CC=*NSHIFT ,Tf J=C 
FOR V=2, 1jM+1 



w = w 
V+l v 




PEPEAT 




P=7j Q=i 




FOR V=1, li 


>M+! 


P=P+B V % 




D=R+C v W y 




FEPEAT 




X=X+H 




Y-Y+H|Z£D+Q M) 


7ED=ZED+P 


H 


REPEAT 




CC=*RLINT 


.I** DECiDE 


FRASE B,Cj 


-w 



DEFINE 



57 


60 


6! 


6? 


63 


6* 


6? 


66 


67 


70 


7! 


7? 


73 


7* 


7 C 


76 


77 


ion 


101 


10? 


to? 


10* 


10? 


10* 


107 


110 


111 


11? 


113 


11* 


11? 


116 


117 


120 


121 


12? 


123 


12* 


125 


126 


127 



EXA^P START NEW PROGRAM 



4/19/66 13.33 



•BQTN 
LOOP 
HEA^E 
IN 

OUT 
END 



PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 



SEQUENCE 
SEQUENCF 

SEQUENCf 
SEwUENCf 

SE^UENCF 
SEliuENCF 



EXA^P .= 



• BGJN 



1 



»>7 ?164l 00 0001 00101 



END 



THI P IS THE DRIVER PROGRAM. IT CONTROL? INPUT* INTEGRATION/ AN 
O'TPUT 

LOOP 1=; 01 4Q001 00 4000 00004 



MEADE 51 
IN 6! 
OUT 7? 

END 10^> 

REFERENCE WORDS. . . 

7tD 7776a 
Y 7776* 
X 7776* 
AOAMS 77767 
XE 7777C 
ZO 7777J 
YO 7777? 
XO 77773 
• INQU 77774 
M 7777= 
M 7777* 
SCRIP 77777 

INTERNAL STORAGE.. 

•NUMB 104 
•NUMB 10"= 



00 ^0000 00 0000 00007 

n O050O 00 0000 000 10 

On 00300 00 0000 00010 

0) 01 000 00 4000 00000 

71 44432*2500000000 
7O2 e :252' : ;250O000000 
*72*252S2500000000 
404^40546240000000 
674^252^2500000000 
7 t 0^25252500000000 
700 r! 252 a ;250O000000 
< , 70 r, 252 i: i2500000000 
7^5^555^,644^000000 
*7£*25<:S25000000QO 
■42^252^2500000000 
*?4?6lb04 I 4^000000 

31=0000000135 
77on243f560 c 07534l 



SUBROUTINES 

GEMIF, , . 
GENIE. . . 



REFERENCED 

A0Av3 

• INrj 

scRia 



126 



F START NEW PR03RA,-| 

•BQIN PROGRAM SEuUEMCr 
END PROGRAM SE^UENC^ 



^/19/fb 13. 33 



*SGIN ! 




END 2=: 




2* 




?•> 




REFERENCE WORDS. . . 




COS 7777* 




SIN 77777 




INTERNAL STORAGE. . 




TilP 30 




-NUMB 3i 




PARAriFTFRS AT PF + 




xx 





YY 


1 


11 


2 



|0 rjOOO 02 4400 00136 
01 olOOT 00 4400 00137 

Oi fcooo*. oo 4000 nooon 

07 r^ioon 00 4200 00000 

*?5' ! >62e:"254no00000 
' ?5 n 552=;254n000000 



! 0^2001000^000000 



SUBPOUTIMES REFERFNCFD 
COS 



GEMIF. . . 
GEMIF. . . 



SIN 



137 



13* 



ada^s start NErf program 4/19/66 13. 33 

♦BQtN PROGRAM SE^UENCf 

LOO D PROGRAM SEQUENCF 

RLINT PROGRAM SEUUENCF 

*FO»| PROGRAM SFiUtNCr 

*f r o K 2 program sequencf 

*rp t 2 program sequencf 

*rpti program seSuencf 

adm t n program sequencf 

♦FO^a PROGRAM SE^UENC^ 

~fQSH PROGRAM SEQUENCE 

♦RPT4 PROGRAM SEQUENCE 

LI 4 PROGRAM SEQUENCF 

*F0 W 5 PROGRAM SEQUENCF 

*RpT5 program sequence 

nshtf program sequencf 

*f0 d 6 program sequence 

*rpt£ program sequencf 

*rpt3 program se^uencr 

end program seuuencf 

ADA M S .= 

•BGIN 1 |n P|000 02 H400 0013ft 

XX,vy jZZ ARF ThE initial VALtFS FOR XiY'Y PRIME 

M IS THE ORDER OF THE MFTHOD ( s * ) 

EE 'S THE END OF THE INTEGR A TTO^ 

H I c THE INTEGRATION 3T r P 

WtO* IS TME SECOND DERIVATIVE* m*M THE KTH BaC« OIFF, 

0! *170T 40 4001 00053 ADMIN 

01 '1740 41 0401 77*50 M 

Pi '1700 00 04Q1 77*36 i1 

ri '1700 00 4000 0000? 

PO "0401 00 000 l 00?30 V 

30 1040! 00 0001 00?25 J 

*1 '1700 00 0600 00000 XX 

?P '000! 00 4001 00?01 J 

01 '1701 00 040! 77*5* M 

30 10401 00 0001 00155 V 

n '010' 26 4401 7? c 34 X 

F I c THE FACTION DEFINING THF 
JIF^EPENTIAL EQUATION 

*F0R5 24a 01 '1701 00 4000 00002 

?0 10401 00 0001 00122 V 

^0 '000! 00 4001 0012? P 

£0 ?0001 00 4001 00! 16 V 

£P 10401 00 0001 0007? V 

20 1040! 00 0001 00054 J 



LOOP 


12! 


RLINT 


12' 


-FOR! 


131 


•F0R2 


141 


-RPT2 


15* 


•RPTI 


157 


AOMIN 


17* 


-F0R3 


20? 


-F0R4 


21* 


•RPT4 


23n 


L14 


23» 



•R P T* 


263 


NSHIF 


26* 


•FOR 6 


26"» 


-RPT6 


313 


-RPT3 


33" 



FND 


347 




35o 




351 


REF-RENCE W rROS. . . 




F 


7776* 


7E0 


7776= 


Y 


7776*. 


y 


77767 


FIX 


7777<~ 


H 


7777V 


y£ 


7777? 


M 


7777^ 


W 


7777A 


C 


7777=; 


VSPAC 


7777*. 


R 


77777 


INTERNAL STrKAliE., 




•Pi 


35? 


• ONEF 


35-5 


•NUMB 


354 


♦NUMB 


35= 


•NUMB 


35a 


♦NUMB 


357 


•NUMB 


36 ft 


• NUMB 


36! 


• NUMB 


36' 


• NUMB 


36-3 


• NUMB 


364 


•NUMB 


36 = 


• NUMB 


36* 


•NUMB 


367 


♦ NUMB 


37ft 


•NUMB 


371 


• NUMB 


37P 


♦ NUMB 


37-a 


• NUMB 


374 


♦ NUMB 


37= 


• NUMB 


37* 


• NUMB 


377 


Wt 


40o 


P 


401 


DECID 


40"> 


•NUMB 


40^5 


BtTA 


40* 


J 


40= 


V 


40a 


•P? 


407 


P 


4lrv 


n 


*ll 


PARAmftF*^ Aj FF + 


yx 





YY 


1 


ZL 


2 


Ft 


3 



°1 r>lO0"> 00 4400 00137 
P! *000«. 00 4000 00000 
n 7 niOOO 00 4200 00000 

*=2=25ci254O000000 
714^432^250^000000 
702*252^2500000000 
672=252-250^000000 
*=50672=> 2540000000 
t72^252T250 r 000000 
f 74*. 252^250^000000 
542=25£~2500000000 
662=252=.2540000000 
4?2 C 252'V25400C0000 
6=6*57414240000000 
412=252-2540000000 


10 n l 001000^000000 
772f>000-)000 r! 000000 
10^600^000^000000 
10^5001000^000000 
10'40010000000000 
10!0001000 p 000000 
1 0^30010000000000 
10?3001.)00 n 000000 
12*40010000000000 

i3- , 3ooijooooooooo 

P0O264100010C0000 

10*0001300^000^00 

1 1 •'700-1 J00 r 000000 
~O r l I01Q000000000 
5 n 3S7A0000000O00 

■=0^73ui.ioooocooon 

?t '243'-,000^000000 

"3=42010000000000 

?0O104A'J000000000 

"0' 5401.0000000000 

= 0O£251057HC0000 







7=001 =3?774 c 15274=. 












SHBFOUTTNFb 


^EFFRFNTP 


137 


GENIF, . . 

GtNIF. . . 


F 

FIX 

VSPAC 


Iji 



13*. 



CODING EXAMPLES 
6 
• Complex Matrix Inverse 

This program inverts a square matrix whose elements are complex 
numbers. The method used is essentially inplace Gaussian reduction 
as described in "An Introduction to Numberical Mathematics", 
Stiefel, E.L., 1963, page 3. Each successive pivot element has 
the largest modulus of all the remaining choices. This insures the 
least possible error in the resulting inverse. If the modulus 
of any pivot element is too small, the matrix is numerically singu- 
lar, an error message is printed. 

The n X n complex matrix is stored as 2 n X n real matrices 
with the primary codewords in two successive memory locations. 
Throughout the program, subscripting and arithmetic are performed 
on the complex variables with the same Genie code that has hereto- 
fore been used for real variables. 

Lines 11 to 13: 

Working storage defined. 

Line 14: 

Complex matrix B is copied into A. Thus, B will be pre- 
served after its inverse is computed. 

Lines 20 to 27: 

The largest remaining pivot element is found and stored in GMOD 
and indices stored in GG and HH. 

Lines 30 to 64: 

If the chosen pivot is large enough, the exchange algorithm 
is applied to A. 

Lines 66 to 103 : 

Since pivot elements were not in general along the diagonal, 
the rows and columns of the inverse are rearranged depending on 
the contents of ROWW and COLL. 

Line 104: 

The inverse is stored in RESULT, where all results of implicit 
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functions are stored. Working storage is freed. 

Lines Comments 

3-4 Double declarations of integer vectors and 

complex matrices. 

10 Use of ROW function implicitly in expression. 

11-12 ROWW and COLL are declared real and, thus, are 

created by VSPACE, the real vector space program 
called in the program. 

13 NEW is declared complex. Thus, even though 

MSPACE is called by the user, CMS PACE (complex 
matrix space) will be the program executed. 

22 Subscripting of a complex variable; use of 

MOD function implicitly in an expression. 

24 Two equations on one line, as many as fifteen 

permit ted . 

30 Specification of a constant using power point, 

' *' . *«-' is printed for '#'. 

45 Use of '+/' to create complex variable out of 

two real variables. 

51 Labelled REPEAT command. This is not the same 

as labelling the corresponding FOR statement. 

60 Compound conditional transfer. 

106 Unconditional transfer to labelled location. 

107 Use of SCRIBE to print error message. 

115-117 Terminating LEAVE statement is followed by 

two carriage returns. 



GENIE 
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! 

DEFINE ? 

COMPLEX MATRIX B,A,NEW 5 

INTEGER VECTOR ROWW/COLL 4 

INVERT(B),=?£Q * 

INTEGER G3*HM,L*C/P^E * 

COMPLEX G 7 

L=ROW(B) 10 

EXECUTE VSPACE(ROWW,L| II 

EXECUTE VSPArE(COLL>t ) 1? 

EXECUTE MSPAtE(NEW#L*LJ 13 

A=9~ 10 

TOP C=t*l>L 1= 

GMOD=0. 1* 

GG-OHH=C 17 

FOR D=C, UL 2D 

FOR ErCM'L 2! 

KMOD=MOD(A^ ) 2? 
□ it 

CC=»MORE ilf <MOO«GMOD 23 

GG=OfHH=E 24 

GMHD-KMOD 2F 

MORE REPEAT 26 

REPEAT 27 

CC=*BYE ,If QMOD*l, 0*-!2 30 

COLL c =GG 31 

ROWW =HH 3? 

FOR D=I*I*L 33 

G=A C,D 3 * 

A CjO =A GG*D 3K 

A GG,D =G ~ 3 * 

REPEAT 37 

FOR 0=1* 1*L 40 

G=A D,C 41 

A D.C =A D*HH 4? 

A D,HH =G * 3 

REPEAT 44 

NEW- _=(l.+/0, )/A_ _ 4? 
C*C CiC 

FOR 0=1#1*L 46 

CC=*SOME flf 0=C 47 

NEM D,C SA D,C /A C,C 3 ° 

SOME REPEAT 51 

FOR D=!j IjL 5? 



September, 1966 CC=*TQME ,If 0=C 



^CD^'^D^C 1 5k 



9/?3/6f 13,0? p AG£ 2 

TOME REPEAT 55 

FOR 0=1* \»L 5£ 

FOR F.z\* l*L 57 

CC=*VOM£ .If 0=C •O.R E=C 60 

Nt V E =A D,E +, * EW C,p' , W 6 ' 

VOME PEPEAj 6? 

REPEAT 63 

A=M£W 6^ 

e>E°EAt 6 C 

FOR C=L'-1' | 6* 

HN=COLL c 67 

GGrROWW 70 

PQR 0=1, l*L 71 

G= V 7? 

A =A 7"3 

A D ,HH =G 74 

PEPEAT 7 C 

FOP 0=1/ 1*L 7* 

SsA OD 77 

A C,D =A GG,D 10 ° 

A GG,D= G ,0! 

REPEAT lo? 

REPEAT !03 
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CODING CONVENTIONS 

This section discusses details of compiler generated code. 
It is intended for those who are particularly interested and for 
those who wish to code in a lower level language while maintaining 
compatibility with compiled programs. This material is not essen- 
tial to the understanding of the Genie language and should not be 
read before attempting to write some programs for the compiler 
and gaining some familiarity with the Rice Computer, the assembly 
language, and the SPIREL system. 
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• Programs initialization and termination 

The *SEQ' or 'RSEQ' causes the compiler to generate a sequence 
of orders which initializes the program being compiled. The first 
of these orders is labelled '-BGIN', and the orders are collectively 
called the "«-BGIN code sequence". For each 'SEQ' or 'RSEQ' there 
is an 'END', and an "END code sequence" corresponds to each «-BGIN 
code sequence. The forms of these code sequences depend on whether 
'SEQ' or 'RSEQ 1 is used, the number of parameters (p) listed for 
the program and, in some cases, the types of the parameters. Each 
complex parameter is counted as two parameters, the real part follow- 
ed by the imaginary part. 

An 'SEQ* causes generation of a non -recursive program; an 
'RSEQ' causes generation of a recursive program. These two types 
of code are distinguished functionally by the location of internal 
variables for the program. Constants are always stored within 
the program. Private storage is inside a non -recurs ive program and 
on the B6-list, addressed relative to PF , for a recursive program. 
Genie-generated recursive code will not alter itself while running, 
and a recursive program may use itself -- provided AP2 code in the 
program also obeys conventions necessary for recursion. The use of 
a program by itself is clear in a case where program A uses program 
A; if program A uses B which uses C which uses A, then again pro- 
gram A is using itself. 

For a non -recurs ive program -- one begun with 'SEQ' or a one 
statement function ... A single fast parameter in the definition 
of a program is a special case which causes only PF to be saved 
and assumes no parameter addressing in Genie language within the 
program. Otherwise, fast register names should not be used as 
parameters in a program definition, and the following discussion 
applies. A single parameter enters a program in T7 , the value of 
a scalar or * codeword address for a non-scalar. Immediately a 
scalar with name P in T7 is stored at internal location 'P'; a 
non-scalar parameter is stored on the B6-list. All fast registers 
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are saved; if there are parameters on the B6-list (p>l or p = l 
and a non-scalar parameter) PF is set to point to the first para- 
meter. In this case (PF) is stored in the address portion of 
'END+1' and must be maintained with this value throughout the pro- 
gram for the purpose of addressing parameters. The END code se- 
quence restores the fast registers, sets B6 to free the storage 
occupied by any parameters on the B6-list, fetches (T7) for implicit 
execution, and exits to the PF setting on entry. The specific code 
sequences are as follows: 

p = l <-BGIN PF RWT END 

fast * 



*+13 6, U-*R 
P 

*+13 7 
PF 

B6, B6+1 
*+13 6, U-.R 
B6-11 
END+1 

*+13 7 

Z 

PF 

*+13 6, U-R 
B6-p-10 
END + 1 

*+13 7 

Z 

PF 

For a recursive program -- one begun with 'RSEQ' ... A 
single parameter enters a program in T7 , the value of a scalar 
or * codeword address for a non-scalar. Multiple parameters enter 
on the B6-list at B 6-p , . . . ,B6- 1 , address for a scalar and * code- 
word address for a non-scalar. A single non-scalar parameter is 
stored on the B6-list. In all cases the PF setting for the last 
execution of the program is picked up from 'END+1' and stored just 





END 




TRA 


p=l 


-BGIN 


-Z 


TRA 


sea lar 




T7 


STO 

• 




END 




• 

TRA 






T7 


TRA 


p = l 


<-BGIN 


T7 


STO 


non -sea lar 




-Z 


TRA 
SPF 






PF 


RWT 

• 




END 




• 

TRA 
SB6 






T7 


TRA 


>>1 


-BGIN 


-Z 


TRA 
SPF 






PF 


RWT 

• 




END 




• 

TRA 
SB6 






T7 


TRA 
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beyond the parameters on the B6-list. This B6 value is stored in 
'END+1' for the PF setting of the current execution. B6 is ad- 
vanced over i private storage locations for the program. A full 
save is done. Then PF is set for execution -- with p parameters at 
PF-p, . . . ,PF-1 and i private storage locations at PF + 1 , . . . , PF+i . A 
single scalar parameter named P is stored at private storage loca- 
tion 'P'. In the case of a single fast or a single scalar para- 
meter, the program is considered to have no parameters. B6-list 
utilization by a recursive program is illustrated by: 



PF-p-* 

PF-1- 
entry B6=execution PF -» 

PF + 1- 

PF+i-. 

execution B6-* 



p parameters 



PF setting from last execution 



i private storage locations 



10 words for SAVE 



push-down storage for execution 



The END code sequence restores all fast registers, restores the 
PF setting for the last execution at END+1, backs B6 up by p+i+1 
to free all B6-list list used in execution, fetches (T7) for im- 
plicit execution, and exits to the PF setting on entry. The 
specific code sequences are as follows: 



s ing le 

scalar 

(P=0) 



-BGIN 



sing le 
non -sea lar 
(p = l) 



-BGIN 



single fast 

(P=0) 
and mul ti pie 

(P>D 



all cases 



^BGIN 



END 
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CLA 


,WTG+2 


END + 1 


B6 


RWT 




END+1,B6+1 


B6 


ADD 




a-*END+3 ,U-B6 


-Z 


TRA 




*+13 6,U-»R 




SPF 




*END + 1 


T7 


STO 
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T7 


STO 




B6,B6+1 




CLA , 


,WTG+2 


END + 1 


B6 


rwt' 




END+1, B6+1 


B6 


ADD 




a-*END+3 ,U-+B6 


-Z 


TRA 




*+13 6,U-R 




SPF 




*END + 1 




CLA , 


.WTG+2 


END + 1 


B6 


RWT 




END+1, B6+1 


B6 


ADD 




a-*END+3 ,U-*B6 


-Z 


TRA 




*+13 6 ,U-R 




SPF 




*END + 1 




TRA 




*+13 7 




CLA, 


,WTG 


Z 




STO, 


,WTG 


END+1, B6-1 


PF 


AB6 




C-i],U-R 


T7 


AB6 




[-p],R-CC 
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• Result for implicit execution 

A program which is single valued may be executed implicitly; 
that is, it may be mentioned within the formula on the righthand 
side of an equation in Genie language. A non-complex scalar result 
must be in U upon exit from the program, a complex scalar result in 
the complex accumulator named CMPLX, a non-complex non-scalar 
result in the non-scalar accumulator whose codeword is by defini- 
tion at location +10 during execution. The name 'RESULT 1 is 
interpreted by the compiler as T7 for a non-complex scalar, as 
CMPLX for a complex scalar, as codeword address +10 for a non- 
complex non-scalar and as CSTAR for a complex non-scalar. 'RESULT' 
may appear only on the lefthand side of an equation and must be 
defined in the last command executed before 'END' on all dynamic 
paths to 'END'. The 'END' code sequence fetches (T7) to U as it 
exits so that a non-complex scalar result is indeed in U upon 
return to the program causing the implicit execution. 
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• Addressing of variables 

With respect to any given program every variable is in one of 
three categories: internal, external, parameter. All internal 
variables are scalar. For a non -recursive program the values of 
all internal variables are stored within the program. For a re- 
cursive program internal variables are of two types: constants 
are stored within the program; others are stored in private storage 
on the B6-list, the i private storage word being addressed at 
(PF)+i after program initialization. External variables may be 
scalar or non-scalar, the address or * codeword address respective- 
ly being stored in a cross reference word within the program, the 
value or codeword respectively being stored in the Value Table 
(*+122) during execution. In the general case, reference words 
for parameters are stored on the B6-list. For a non-recursive pro- 
gram the p parameter is addressed at (PP)+p-l after program 
initialization. For a. recursive program the p th parameter is 
addressed at (PF)-p after program initialization. Parameters of 
a program during execution are indeed internal or external with 
respect to some dynamically higher level program, but this does 
not affect addressing in the program where they are parameters. 
The following charts summarize addressing conventions for variables. 
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• B6-list, working storage 

The SPIREL system uses the block with codeword address +112 as 
a working storage area. The conventions associated with this 
storage are that B6 points to the next available location on the 
list [hence, the term "B6-list"] and that the storage is used in 
a linear "last-in-first-out" or "push-down" fashion. Genie 
generated code uses the B6-list for temporary storage of interme- 
diate quantities within the calculation of an arithmetic formula, 
always storing at (B6) , incrementing (B6) after the store, retriev- 
ing from (B6)-l, and decrementing (B6) after retrieval. The B6- 
list is also used for storage of parameters before entering a pro- 
gram; the program then decrements (B6) over the parameters before 
return since the storage occupied by parameters is no longer in 
use. For a recursive program, a private storage area is established 
on the B6-list and freed prior to exit. The SAVE (*+136) and 
UNSAVE (*+137) programs and other SPIREL routines use the B6-list 
for temporary dynamic push-down storage. 

Using the B6-list for temporary storage, the following sequence 
shows storage of A, B, C and later retrieval of C, B, A with proper 
maintenance of (B6) as a pointer to the B6-list: 

• 

CLA+2 A, B6 + 1 
CLA + 2 B, B6+1 

■ 

CLA+2 C, B6+1 

calculation perhaps involving 
use of B6-list with balance of 
'. stores and retrivals, so that 

final £B6) _ initial (B6) 

CLA B6-1, B6-1 

STO C 

* 

CLA B6-1, B6-1 

STO B 



CLA B6-1, B6-1 

STO A 
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• Parameter set-up for program execution 

Execution of a program with a single non-complex scalar 
parameter SP is preceded by code which accomplishes (SP)-»T7. 
In the case of a single non-scalar parameter NSP, the code accom- 
plishes *NSP->T7. For more than one parameter, representations 
are stored sequentially on the B6-list; if the k th parameter is 
a scalar SP, then SP-B6, B6 + 1; if the k th parameter is a non- 
scalar NSP, then *NSP-»B6, B6 + 1. A complex parameter is treated as 
two parameters, the real part followed by the imaginary part. If 
one of a group of parameters is given by a number or an expression, 
then the quantity must be given a name before the proper parameter 
representation can be stored on the B6-list. For such purpose 
the names '<-Pl', '«-P2', etc. for non-complex quantities are generated 
by the compiler. The quantity is stored at «-Pn for a scalar or 
**-Pn for a non-scalar is stored on the B6-list. A non-scalar at 
-Pn is freed upon return from the program for which it was stored; 
then all *-Pn used are available for re-use. Complex quantities 
are stored as pairs named *«-Ql', '-Q2', etc., then each part is 
treated like a non-complex parameter. 

The execution of program PROG is accomplished by TSR *PR0G 
where PROG is a cross-reference word for PROG within the program 
doing the execution; the codeword for PROG is in the Value Table 
(*+122). Thus, PROG is an external variable with respect to the 
program which executes it. 
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• Representation of Complex Variables 

A complex variable is always on the first level of ad- 
dressing represented by a pair of words in consecutive memory lo- 
cations, the real part followed by the imaginary part. The name 
of a complex variable is attached to the first word of the pair, 
the real part; the second word of the pair has the name "ditto*', 
printed '_____•. The Cartesian form is used, and both parts are 
real floating point. 

Genie generates internal storage for the complex scalar A as 
A real part of A 

_____ imaginary part of A 
Genie generates cross-reference words for the external com- 
plex variable A as 

A name 'A' in hexads/* if non-scalar/ 

VT address for A 

_____ name "ditto" in hexads/* if non-scalar/ 
VT address for A's ditto 
Then while running the corresponding ST-VT configuration is 

ST VT i 




real part of A - 

value if s ca lar , codeword if 

non-sea lar 



imaginary part of A- 
value if scalar, codeword 
if non-sea lar 



Genie constructs two argument words on the B6-list for each 
complex argument A. The first addresses the real part of A; 
the second addresses the imaginary part of A. 
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• Subscri ption 

In the Genie language any variable may be subscripted by from 
one to five indices separated by commas. The indices are assumed 
by the compiler to be integers: explicit numbers, simple names, 
or arithmetic expressions of any complexity. The indices are load- 
ed successively into Bl, B2 , ..., B5 by the following procedure 
which allows subscripts to themselves be subscripted: 

1) scan n indices from left to right, computing those 

which are not numbers or simple names, and storing 
those computed (except the last) on the B6-list; 

2) scan from right to left storing ( U) , quantity from 

B6-list, named quantity, or explicit number into 

Bi for i=n , n-1, . . . , 1 . 
In the sense of SPIREL, a subscripted variable is called an "array". 
In particular, a one -dimensiona 1 array of data is called a "vector" 
and is indexed by Bl, and a two-dimensional array of data is called 
a "matrix" and is indexed by Bl and B2 in that order. But in fact 
an array may be of as many as five dimensions and may contain either 
data or programs, and its elements may be addressed in the Genie 
language. The indices may take on negative values if the storage 
configuration is . correspondingly established. 
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• Operations on standard forms of non-scalars 

In order to perform an operation between a scalar and a vector 
or matrix, to combine two vectors or matrices, or to store a vector 
or matrix the non-scalar itself must be addressed in the code. 
Although completely general forms of non-scalars may be created 
and manipulated in the SPIREL context and may have their elements 
addressed in the Genie language, operations on full vectors and 
matrices are defined only for arrays of standard form in order 
that execution time is not spent in handling the most general case. 
The standard form of non-scalars is entirely sufficient in a vast 
majority of applications. The definition is as follows: 

standard form of one dimensional array, vector 

1) loaded with STEX active 

2) indexed by Bl 

3) initial index = 1 

standard form of two dimensional array, matrix 

1) loaded with STEX active 

2) indexed by Bl for row specification and B2 for 

column specification 

3) initial row index = 1, initial column index = 1 
A standard complex non-scalar is a pair of standard 
non-scalars, as described. Codewords must be adjacent, 
real then imaginary; a name adheres to the real part, 
and the imaginary part is named "ditto" («_«-<-«-<-). 

Arithmetic operations involving standard non-scalars parallels 
scalar arithmetic quite closely. By convention, codeword +10 is 
used as the non-complex non-scalar accumulator, commonly called 
'U* 1 ; the complex non-scalar accumulator is named CSTAR. The 
programs used for performing operations on non-scalars recognize a 
null codeword address for a non-scalar operand to mean that the 
operand is the accumulator. The creation of a new U* or CSTAR 
causes the storage previously addressed by that "name" to be freed. 
If a non-scalar in U* or CSTAR needs to be temporarily saved, this 
is done on the B6-list; that is, a word or pair of words on the 
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B6-list are taken as codewords for the storage addressed and the 
accumulator codewords are cleared. Note that this storage also 
involves adjustment of the STEX back-references to address the 
new codewords . 

The code sequence generated by the compiler for non-complex 
non-scalar storage A - B is as follows: 



copy A-»U* only if A^U* 



free storage addressed 
as B only if B=J=U* and 
not on B6-list 

clear U* codeword 
store new codeword 
for B 
update back-reference 





CLA 


A,U-.B2 


z 


TSR 


*MC0PY,U-»B1 




SPF 


*END+1 




CLA 


B,U-»B1 


z 


TSR 


*+135 ,U-*B2 




SPF 


*END + 1 


z 


LDR- 


+ 10 ,R-»B2 


R 


STO 


Bl 


Bl 


RPA,WTG 


B2 



if B=J=U* 



The code sequence generated by the compiler for complex non^ 
scalar storage A -> B is as follows: 



^ 



t 





CLA 


A,U-+B2 


z 


TSR 


*CMC PY , U-B 1 




SPF 


*END + 1 




CLA ,DBL 


B,R-B1 


z 


TSR 


*+13 5 ,U->B2 




NOP 


Z,B1-1 


z 


TSR 


*+13 5 ,U->B2 




CLA 


CSTAR,U-»PF 




CLA ,DBL 


PF,U-.B2 




STO.DBL 


Bl 


Bl 


RPA 


B2 ,R-»B2 




NOP 


Z ,B1 + 1 


Bl 


RPA 


B2 ,R-Z 


Z 


ST0,DBL 


PF 




SPF 


*ENDP1 



copy A-»CSTAR 
only if A^CSTAR 



free storage addressed 
as B only if B=j=CSTAR 
and not on B6-list 



store new codewords 
for B 



update back-references 



clear CSTAR 
codewords 



if 
B=J=CSTAR 



^(PF) reset only if program is recursive or is using (PF) for 
reference to parameters. 
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• A5SisMent of ^Pe and shape to vari.M.c 

In the Genie language each variable has a shape: scalar 
vector, or matrix. The shape of a variable may be explicitly' 
specified as non-scalar by a declaration: VECTOR for vector 
MATRIX for matrix. Each scalar, vector, matrix, and function (re- 
sult) has a type: integer, real floating point, compleXj or Boolean> 
The type of a variable may be explicitly specified in a declaration- 
INTEGER for integer, REAL or SCALAR for real floating point 
COMPLEX for complex, and BOOLEAN for Boolean. The standard' 
shape/type is scalar/floating point unless otherwige specified 
in an INFER declaration. If the first appearance of a variable 
name is not in a declaration, its type is implicitly specified 
by the following rules: 

1) If a variable name first appears on the right side 

of an equation, the variable is assigned the 
standard shape/type. 

2) If a variable name first appears on the lefthand 

side of an equation, the variable is assigned 
the shape/type of the expression on the right- 
hand side. 

In a compilation a variable will not have its type changed 
once lt is assigned. An equation which has lefthand and righthand 
sxdes of different types will cause the compiler to comment on the 
equating of unlike types; code will be generated to perform a 
store appropriate to the quantity on the righthand side, but the 
type of the quantity on the lefthand side will be unaffected 
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• Arithmetic combination of variables of different types 

In arithmetic expressions Boolean and integer variables may 
be combined only in exponentiation, Boolean scalar variable to an 
integer scalar power. Boolean and floating point variables may 
not be combined. 

Integer and real floating point scalars and non-scalars may 
be combined in any mathematically meaningful way. In all cases ex- 
cept exponentiation of a floating point scalar by a numberically 
specified integer < 7, the integer must be floated before the combi- 
nation takes place. In all cases the result of the combination is 
floating point. If a numerically defined integer scalar is floated, 
the floating point equivalent is generated at compilation time and 
is referenced in the generated code for the combination. Other ise, 
the floating of an integer scalar A is Accomplished by the follow- 
ing generated code: 

-LDU -A 
FMP -TW47 

where '-TW47 1 refers to the constant 2 which will be stored with- 
in the program. The floating of an integer vector or matrix is 
accomplished by use. of the Genie SPIREL program MFLT. 

Integers and real floating point scalars and non-scalars may 
be combined with complex scalars and non-scalars in any mathemati- 
cally meaningful way. In all cases except exponentiation of a 
complex scalar by an integer or floating point scalar the non- 
complex quantity is made complex before the combination takes 
place. A floating point quantity is made complex with real part 
equal the floating point quantity and zero imaginary part; an 
integer quantity is floated then made complex as a floating 
point quantity. 



Genie January, 1968 
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• Boolean variables and operations 

A Boolean variable may take on the value 'TRUE 1 or 'FALSE' 
these being represented in the computer by full length quantities 
TRUE «* +007777777777777777 
FALSE = +007777777777777776 
The binary operations between Boolean variables to yield a Boolean 
value cause code to be generated as follows: 
or, A+B , true if either A or B is true 
CLA A 
ORU B 
and, AXB, true if both A and B are true 
CLA A 
ORU B 

symmetric difference, A-B, true if A and B have different 
va lues 

CLA A 
SYD B 
ORU #77776 
symmetric sum, A/B , true if A and B have the same value 
CLA -A 
SYD B 
The only meaningful unary operation on a Boolean variable is 
complementation, not A, true if A is false 
-I ORU -A 

The machine register sense lights (SL) is a collection of 15 

bits, any one of which may be individually meaningful and may be in 

an on or off (1 or 0) state at any time. The variable SL is Boolean 

and exponentiation to an integer power is defined 
B 
A , true if bit B of A is on (1) where the bits of A are 

numbered from 1 to 15, from left to right 



CLA 
LUR 
ORU 
CLA 
BUS 
CLA 
LUR 
ORU 



A 

15-B 
#+77776 
B 

#15 ,U-R 
A 
*R 



1 
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if B is a number 



if B is 

a name 

or 

an expression 
#+77776 _J 

Although the Boolean exponential notation is particularly meaning- 
ful for the lights, it may be applied to any Boolean variable. 
Thus, a Boolean variable A which does not itself have a value of 
TRUE or FALSE may be^a collection of 15 bits (the rightmost in a 



15 



■I n 

machine word) A A a-- ~ ., u • ,_i 

^ » ^ } •••> A each with a 

FALSE . 



value of TRUE or 
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• Loop coding 

In the Genie language a loop is begun by the command 

FOR iteration parameter = initial, increment , fina 1 and 
ended by the command 

REPEAT 
If there are not labels on these commands, the k th loop will have 
the labels '^FORk • and --RPTk' associated with it. The generalized 
code generated for loop control is as follows: 
<-FORk compute initial 

initial -> iteration parameter 

compute increment ~i 

store increment A 



compute final — 1 

store final A 



[-FORk+m] LT7 final 

Z IF(POS)SKP increment 

T7 IF(POS)SKP iteration parameter, CC+1 

T7 IF(NEG)SKP iteration parameter 

TRA ^RPTk+n 

• 

orders of loop 



B 



RPTk CLA 

FAD 



increment 



iteration parameter 
TRA -FORk+m 



[-RPTk+n] 



Seldom is the full generalized code necessary, and the following 
notes pertain to condensations which are provided in various 
s pecific cases . 

(A) The increment and the final value are computed and stored 
only if they are given by expressions, that is, not 
simple variable names or explicit numbers. 



(B) 
(C) 



(D) 
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The final value will be stored in the address field of 

the order if it is given by an explicit integer. 
If the increment is given by an explicit integer, it will 

not be tested for being positive or negative and only 

the appropriate comparison of iteration parameter to 

final value will be generated. 
If the iteration parameter is a long fast register F, the 

^RPTk code sequence will be 

-RPTk F FAD increment, U-F 

TRA *-F0Rk+m 
If the iteration parameter is an index register Bi and 

the increment is an explicit integer +1 or -1 the 

*-RPTk code sequence will be 

^RPTk TRA -FORk+m,Bi±l 
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• Use of fast registers in Genie generated code 

Fast registers may be used in the Genie language and in assembly 

language coding to be used in a Genie context if there is no conflict 

with usage generated by the compiler: 

T7 is always subject to use for special purpose temporary storage. 

T7 is used for storage of a single parameter when a function is 
executed implicitly or explicitly. 

T4, T5 , T6 are subject to use in any arithmetic command for scalar 
temporary storage and for storage of scalar s mentioned two or more 
times in one equation if these fast register names are not mentioned 
explicitly in the command. 

Bl is used when loading parameters onto the B6-list if a name *-Pn is used. 

B1 / B2 , B3 , B4 / B5 are used for subscripts in addressing elements of 
arrays. The first k are used to address an element of an array of 
k dimensions. 

Bl and B2 are used in complex scalar arithmetic. 

Bl , B2, and PF may be used in operations on vectors and matrices. 

Bl is used in input-output commands to specify to the program «-INOUT 
the operation to be performed. 

Bl is used in raising an integer or a real floating point scalar to an 
integer power £ 7 . 

B6 always addresses the push-down B6-list which is used for temporary 
storage of scalars and non-scalars, for multiple parameter storage, 
and for private storage of a recursive program. 

PF is used within a non-recursive program to address its parameters if 
there are more than one or if there is only one but that is a non- 
scalar. The appropriate value fo (PF) is, in such cases, stored in 
the address portion of END+1 so that resetting is easily accomplished 
by 

SPF *END+1 

PF is used within every recursive program to address parameters and 
private storage locations. The appropriate value of (PF) is stored 
in the address portion of END+1 so that resetting is easily accomplish- 
ed by 

SPF *END+1 

GENIE July, 1967 
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• Rearrangement of arithmetic formulae for efficient evaluation 

The compiler has the ability to rearrange the terms in addition 
(or subtraction) and multiplication (or division) strings. Con- 
stant terms are shifted to the left in the formula. Terms which 
are themselves expressions, rather than simple variable names or 
numbers, are shifted to the left to save temporary stores that would 
be required were such complex terms to appear to the right in a 
string. The ordering of the complex terms is determined by the num- 
ber of temporary stores required to evaluate each; the complex term 
requiring the most temporary stores will be shifted farthest to the 
left. 

If the order of evaluation within a formula is of importance 
this rearrangement may be avoided by defining each complex term 
in a separate equation, thereby giving each a name. Then the origi- 
nal formula will involve only simple variable names, and rearrange- 
ment will not take place. 
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CONCEPTS 

A computer serves a user by decoding instructions and perform- 
ing the operations specified. In an analagous manner, the SPIREL 
sys tem serves a user by decoding control words and performing the 
operations specified. In fact, once in the machine SPIREL may be 
thought of as an extension of the Rice Computer. 

As instructions are used to dictate computer operations on 
single words in the memory, so are control words used to dictate 
SPIREL operations on blocks . Physically, a block is a set of 
contiguous words in memory. Associated with each block is a 
one-word "label" called a codeword. A block is a logical unit 
from the point of view of the user; it may contain a program, a 
vector of data, or codewords which in turn label other blocks. 
In general, an array is a logical structure which consists of a 
codeword which labels a block of codewords which label blocks, 
and so on until on the lowest level are blocks which do not con- 
tain labels. The depth or dimension of an array is just the 
number of codeword levels in the array. A program is a single block 
with one codeword, a one-dimensional array. A data vector is a 
single block with one codeword, a one-dimensional array. A matrix 
of data is a vector of data vectors, a two-dimensional array. 
Collections of programs and data vectors may be logically grouped 
to form program and data arrays of any depth deemed organizationally 
useful to the SPIREL user. 

An array is uniquely associated with its single highest code- 
word, the primary codeword . In most applications all addressing of 
information in arrays (contents in lowest level blocks) is done 
through the primary codeword. Thus, access to information in an 
array depends on only one address, the codeword address for the 
array. The physical location of blocks is irrelevant to the user, 
so allocation of storage for blocks is performed by SPIREL, and 
addressing through levels of codewords constructed by SPIREL is 
accomplished by the indirect addressing of the hardware. A fixed 
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region of the memory, locations 200 through 277 (octal), is by 
convention reserved for primary codewords, and allocation in this 
area is the responsibility of the individual user. The unique 
correspondence of a primary codeword address to its array provides 
an informative "name" for the array. A program with codeword add- 
ress 225 may be called program *225, and a matrix with primary 
codeword at 271 may be called matrix *271; the. '*' symbolizes in- 
direct addressing in the assembly language, and here serves to 
emphasize this operation in connection with codewords. 

A P££J££™ * p of length K may occupy a block beginning at 
machine address F. Then program *P is represented in the machine 
as 

F: 



P: flf 



codeword 



In programming, control is passed to this program by the code 

TSR *P 
which becomes 

TSR F 
when the hardware indirect addressing is carried out. The address 
formed is that of the first word of the program. 

A vector *V of n data elements V,, V„ , .... V may occupy a 
block beginning at machine address F. Then vector *V is represented 
in the machine as 

____________ F: 

v . — ** 



codeword 



V. 



V 



V 



In programming, the data element V is addressed by the code 

P 



index register i 



then 



operation 



*V 
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which becomes 



operation p+F-1 

when the hardware indirect addressing is carried out. The address 

formed is that of V , as desired. The standard vec tor form uses 

index register Bl for element addressing. Non-standard forms permit 

variability of indexing and even allow the first word of the block 

containing the vector elements to be addressed as V where K is 

K 
any integer. 

A matrix *M of m rows by n columns of data M , ... M 

1,1 m^ n 

is stored one row per block and is represented in the machine as 

F ~~ -~ 



M: £ 



m 



*i j F - l"] 



primary codeword 



n 


j 


G -1 

- i 


e 
• 
• 


11 


j 


G -1 
P 


a 
e 


n 


.1 


G -1 

m 



G 



M 



Ei-L 



M 



p»q 



M 



p, n 



secondary codewords 

In programming the data element M is addressed by the code 

P.? q 
-» index register 1 



P 

q 



then 



which becomes 



and then 



-» index register j 
operation *M 
operation * p+F-1 



q+6 -1 



operation 

when two levels of hardware indirect addressing are carried out. 
The address formed is that of M , as desired. This addressing 

p 3 q 

in no way depends on the size of the laatrix *M . The standard 
matrix form is for a rectangular matrix, using Bl for row ssecifica 
tion and B2 for column specification. Non-standard forms permit 
variability of indexing and non-rectangular structures and even 
allow the first element to be addressed as M„ T for K and L any 
integers. 

SPIREL operations on arrays are dictated by control words 
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which specify the primary codeword address for the array. Such 
operations are : 

• to take space for a program, vector, or standard matrix 

• to print the lowest level blocks in an array 

• to punch an array 

• to execute a program 

• to free the space occupied by an array 

• and many others 

Of particular importance is the fact that arrays may be dynamically 

created and erased or changed in size and structure so that only 

immediately pertinent arrays occupy space at any time during the 
run of a user's system. 

SPIREL control words are 18-place octal configurations, i.e., 
one machine word in length. With the SPIREL system in the machine, 
control words may be transmitted to the system in two ways; 

* internally under program control by the user — 

control word -» T7 
and TSR *126 

• externally to the SPIREL communication routine from paper 
tape =- 

control word preceded by 'carriage return' 
punch on paper tape in the reader 
or from the typewriter ~- 

control word £ pe U-register. 
In all these cases the control word is in fact transmitted to XCWD 
(Execute Control Word), program *126 in the SPIREL system. This 
program is the nucleus of SPIREL; it interprets each control word 
and may use other programs in the system to carry out specified 
operations. SPIREL is, then, a collection of programs, and any of 
these may be utilized directly by the user of the system. 

Details about codewords, system organization, control word 
decoding and formats, storage control, and the SPIREL programs are 
given in the succeeding sections. 
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With every block of memory is uniquely associated a codeword 
which has two primary functions: 

• description of the block, including current length and 
location, current type of block content, and printing 
format for the block 



indirect a ddre 



ssing portion appropriate for programmed 



addressing through the codeword into the block. 
The format for a codeword at address C, which labels a block 
beginning at address F=f+i or F=f+i-l is: 



1 15 


16 27 


2 


n 


i 


a 



29 30 



3 1 



* 



32 



39 



m 



40 



54 



\ 



indirec t 

addressing 

portion 



where 



n= length of the block. 

i=ini tia 1 index of the block in 1' 



s complement format, 



where zero i is denoted by i=7777; standard SPIREL 
provision is for i=l. 

For a block with B-mods in its codeword (a 
vector), the first word is addressed as element C. 

For a block with no B-mods in its codeword 
(a program) , the first word of the block is 
addressed as word 1 of C; if i<l , the words preceding 
word 1 are cross reference words . 
a=l if block contains codewords; empty (0) otherwise. 
y=printing format to be used for output of block if none 
given in print control word 

0: octal, 4 words per line (standard SPIREL provisior 
hexad, 108 characters per line 
octal, 1 word per line in program layout 
decimal, 5 words per line 
*,m=indirect addressing and B-modi f ica t ion bits, effective 
in addressing indirectly through the codeword. 
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f=F-i if block has 1 

B-mods in codeword F = the address of the 
F-i + 1 if block has no first Word of thfi 

B-mods in codeword J block 
A codeword is completely formed by SPIREL at the time the 
corresponding block is created. This creation is the result of a 
control word to take space (structure formed and lowest level 
blocks filled with zeroes) or one to read a block (structure formed 
and lowest level blocks filled with words read from paper tape). 
The most frequently used codeword forms are illustrated below. 
• For a program *P of length k, no cross references: 



P: 



15 



16 



27 


28 39 


40 54 


0001 


0000 


F 



oc ta 1 digits 



where the first word in the block and the first word of code 
in the program coincide at address F. 



For a program *P with two cross ref 



15 



16 



27 



7776 



28 



39 



0000 



L 



40 



erences prior to code: 
54 



F+2 



octal digits 



where the first word of the block is located at address F, 

and the first word of code in the program is located at address 

F+2 . 

In both cases the block occupied by the program is k words 
in length, and control is passed to the program by the code 

TSR *p 
• For a standard vector *V of length n: 



V: 



1 




15 


16 27 


28 39 


40 54 


n 


0001 


0002 


F-l 








1 


1 



octal digits 



where the vector element Vj is located at address F, the initial 
index=l, and a Bl modifier is used. The element V ii 
by the code 



s addressed 



SB1 
CLA 



P 



CODEWORDS 
3 



• For a standard matrix *M of m rows by n colu 
primary codeword 



mns 



M: 



15 



m 



16 



27 28 



3 9 40 



54 



0001 



4402 



L 



S-l 



octal digits 



secondary codewords 
S: n 00 01 



S + p-1 



S +m - 1 



0004 



lx± 



0001 



0004 



R -1 

_p 



0001 



0004 



R -1 



octal digits 



where each row is stored in a s 

M 

column indices=l, a Bl modifi 



eparate block and the matrix element 
pjl is located at address R ? for each p, the initial row and 



ler is used for row specification, a 
B2 modifier is used for column specification, the primary 
contains an a_-bit and a *-bit. The element M 



the c ode 



P ,q 



codeword 
is addressed by 



SB1 


P 


SB2 


q 


CLA 


*M 



An array whose primary codeword address is utilized in code is 
a numbered array. There are also named arrays , whose names are 
stored in a system vector called the Symbol Table with primary 
codewords stored in the parallel Value Table. A named array Is 
addressed in code indirectly through a cross reference word which 
contains the name of the array. All cross reference words for a 
program are located within the program before the code. The code 
is then one level removed from the primary codeword for a named 
array, and the linkage from cross reference word to the codeword 
in the Value Table is maintained by SPIREL. 

The user specifies the primary codeword address or the name 
for each array, but the location of blocks in the memory is left 
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to the "discretion" of SPIREL. Any given block may be located 
variously from run to run, and may be moved even during a run if 
the STEX storage control mechanism in SPIREL is active and such 
manipulation is necessary for another requested allocation. 
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• Memory Utilization 

The SPIREL system itself is a collection of programs, tables, 
and individual constants. System conventions provide memory 
utilization as follows: 



octal addresses 
00000-00007 

00010 
00011-00020 
00021-00022 
00023-00024 
00025-00026 
00027-00036 

00037 

00040-00077 

00100-00177 
00200-00277 

00300-[E-400]* 



[E-377]-[E-100]* 
[E-77]-E* 



use 

machine full-length fast registers Z,U,R,S, 

T4,T5.T6.T7 
used as codeword address by library routines 

machine trap locations 
not used 

link to SPIREL console communication routine 
not used 

entry to SPIREL program *120, diagnostic dump 
console entry to magnetic tape system 

(explained in MAGNETIC TAPE SYSTEM section) 
used by SPIREL program *120, diagnostic dump, 

and by magnetic tape system programs 
system codewords and individual constants 
region for primary codewords of numbered arrays 

or numbered constants of the system user 
storage of blocks labelled by system or user 

codewords, each block containing a program, 

data, or codewords which in turn label other 

blocks 
main magnetic tape system program 
magnetic tape system communication program 



*E represents the end of memory: 
E=17777 for 8K 
37777 for 16K 
57777 for 24K 
77777 for 32K 
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• B6-list 

The w °rking p ush-down storage area is addressed by index 
register B6 and is commonly called the B6-list. SPIREL programs 
use the B6-list; programs of the system user may similarly use the 
B6-list; and index register B6 may be used for other purposes only 
if the working storage setting is maintained for those programs 
which depend on it. 

Conventional use of the B6-list depends on one fact: that B6 
contains the address of the first word of a block of storage not in 
use. Therefore, if one word of temporary storage is required, it 
is taken at B6 and B6 is incremented by one; if the last word'.tored 
on the B6-list is retrieved from the address B6-1 and is in fact no 
longer resident on the list, B6 is decremented by 1, and the storage 
location may be reused. 

The B6-list exists in memory as program block *112. The initial 

system setting of B6 is to the first word address of this block 

(given in codeword). The standard length of the block is 200 (octal) 
loca t ions . 

A frequent application of the B6-list is for temporary storage 
of fast registers to be used by a subroutine, but to appear un- 
disturbed to the program using the subroutine. A program wishing 
use but preserve T4 , T5 , and T6 might use the B6-list as follows: 
— upon en try 

T4 STO B6,B6+1 

T5 STO B6,B6+1 

T6 STO B6,B6+1 

-computation with private use of T4 , T5 , T6 and any desired 
use of the B6-list 

— prior to exit 

LT6 B6-1.B6-1 

LT5 B6-1,B6-1 

LT4 B6-1,B6-1 

— exit with B6 setting same as that upon entry. 
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• System Components 

The programs, tables, and individual constants which comprise 
the SPIREL system are listed below. The programs are fully ex- 
plained in later sections, and the diagram of SPIREL component 
linkage shows how the various components are functionally inter- 
connected. 



INDIVIDUAL CONSTANTS 
Address Name 



100 


STORAG 


101 


FIRSTEX 


102 


LASTEX 


107 


NUMBER 


114 


PRCT 


115 


ACWD 


117 


STPNT 



121 



124 



FWA 



NAME 



Function 

describes available storage 

first word address of storage exchange 
domain 

last word address +1 of storage domain 

relative Symbol Table address of SPIREL 
operand 

current active length of ADDR 
used by PUNCH 

gives index of last active entry 
in ST and VT 

first word address of last program 
tagged (used by TRACE and TAGSET) 

symbolic name (if any) of block 
currently being operated on by SPIREL 



VECTORS, PRINT MATRIX, B6-LIST 



Codeword 




Addres s 


Name 


112 


LISTB6 


113 


ST 


116 


PM 


122 


VT 


125 


ADDR 


174 


TEXT 



Use 

Push-Down Storage Area 

Symbol Table 

Print Matrix 

Value Table 

Base Address Vector 

Console Input Text 



Length Q 
200 
400 
200 
400 
6 
14 
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PROGRAMS 

Codeword 
Address 

13 

14 

20 
110 
111 
120 
126 
127 
130 
131 
132 
133 
135 
136 
137 
140 
141 
142 
143 
144 
145 
146 
147 
150 
151 
152 
153 
155 
156 
157 
170 
171 
172 
173 
175 
176 



Name 

TRACE 

ARITH 

CHECK 

HDPR 

MATRX 

DIADMP 

XCWD 

SETPM 

SMNAM 

DAT I ME 

CLOCK 

PCNTRL 

STEX 

SAVE 

UNSAVE 

DELETE 

CHINDX 

TAGSET 

CONVRT 

PRINT 

PUNCH 

XCWSQ 

PFTR 

MAP 

PRSYM 

PWRTN 

MRDDC 

BINDC 

RDCHK 

PUNCHK 

PLOT 

SAMPLE 

ERPR 

CONSOL 

CNTXT 

TLU 
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Use 

Trace 

Arithmetic Error Monitor 

Check Block Bounds 

Print Control Word 

Process Matrix 

Diagnostic Dump 

Execute from Control Word 

Set Up Print Matrix 

Find Symbolic Name 

Print Date and Time 

Decode Clock 

Punch Control Word 

Storage Exchange 

Save Fast Registers 

Unsave Fast Registers 

Insert or Delete Space 

Change Initial Index 

Tagset 

Convert from Decimal 

Print 

Punch 

Execute Control Word Sequence 

PF Trace 

Map STEX Domain 

Print Symbol and Value Tables 

Conversion of Powers of Ten 

Multiple Read Decimal 

Binary to Decimal Conversion 

Read with Checksum 

Punch with Checksum 

Plot Character on Scope 

Sample Typewriter for Console Input 

Print Error Messages 

Interpret Console Input 

Determine Context 

Table Look-Up 
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* Program *126, XCWD 

The nucleus of the SPIREL system is the program *126, XCWD 
(Execute from Control Word). This routine interprets control 
words received in T7 and ca-ries out the specified operations. 
The work of *126 may in most cases be described in the following 
steps : 

1) address determination -- consists of determining the 

address of the first word to be operated upon and 
the number of words to be operated upon 

2) operation determination -- consists of determining the 

operation to be performed 

3) operation execution -- consists of performing the 

operation or using another SPIREL program to carry 
out the operation 
XCWD accepts a control word in T7 and disturbs no other fast 
registers. Two sense lights affect the behavior of *126: 

SL14 off causes XCWD to print one line for each control 
word it executes. The information printed includes 
the control word, the operation, the name and relative 
symbol table address of the block operated on, the lo- 
cation and number of words operated on, the number of 
free words of storage remaining and a notation if the 
storage exchange system is active. This SPIREL moni- 
toring provides useful load records and may help in 
debugging. A system which has been checked out would 
probably run with SL14 on to suppress monitoring. 

SL15 on causes "reading" and "correcting" operations of 

SPIREL to bypass storage of what is read and instead 
compare it with what is currently in the locations 
where storage would otherwise take place. 
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• Control Word Format 

A control word is divided into seven fields: 
R, and F. These are arranged as follows: 
bits 



N,w ,x ,y,z , 



1 15 


16 27 


28 39 


40 54 


nnnnn 


wxyz 


rrr r 


fffff 



N R F 

where each lower case letter represents one octal digit. In 
general, N.x.R, and F concern address specification; w,y, and z 
concern operation specification. X indicates the shape of the 
operand F 

x = -> absolute address 

x = 1 -> relative (single level) address 

x = 2 -* relative with Bl modifier (single level) 

x = 4 -»■ relative (all levels) address 

x = 5 ■+ relative on symbol table 

x = 3, 6, and 7 are given under More SPIREL Operations , p. 29, 19, 20 
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• Address Specification 

General rules for address specification may be stated; 
exceptions exist and are noted in the list of control words later 
in this section. 

The control word fields N,x,R, and F provide information which 
determines 

3-, the address of the first word to be operated on 
and 7J , the number of words to be operated on. 

To specify SPIREL operation on a set of locations whose 
absolute machine locations are known: 

x=0 

N=7? 

R irrelevant 
For example, it might be useful to have SPIREL print the user's 
codeword region, 100 (octal) words starting at location 200 (octal). 

To specify SPIREL operation on all of or a portion of a block 
labelled by a numbered codeword: 

x = l 

F=codeword address 
If 3 is to be the first word of the block or blocks operated on: 

R=0 
R.^O specifies the relative program word or vector element, 
counting from the initial index of the block in either case, 
where initial index=l for programs containing no cross references 
prior to code and for standard vectors. Note that the th word 
of a program or t element of a vector is specified by R=7777. 
If 7] is to be the current length of the block or blocks operated on: 

N=0 
otherwise : 

N=>7 
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To specify SPIREL operation on the entire contents of each of 
the lowest level blocks of an array which is labelled by a codeword: 

x=4 

N=0 

R=0 
(More general application of x=4 is explained in the section on 
Recursive Application of SPIREL.) 

To specify SPIREL operation on a named scalar or block, the 
name is given after the control word on paper tape or in R for 
internal control. Then the control word to address a named scalar 
or block contains: 

x=0 for a scalar, 1 otherwise 

F=0 
and the control word to address all of the lowest level blocks of a 
named array contains: 

x=4 

F=0 
To specify SPIREL operation, other than read, on a named scalar 
or all of the lowest level blocks of a named array, the relative 
Symbol Table (ST) address of the name may be used in typed external 
communication from the console. The typed control word then contains 

x=5 

F=relative ST address of name 
Addressing of named quantities is discussed in detail in the 
section on Symbolic Addressing. In the sections which follow, with 
the exception of the read operation, a control word which utilizes 

x=0 

F = loca t ion 

° r 

x=l 

F=codeword address 

SPIREL February, 1967 



CONTROL WORDS 

5 
may also take the form 

x=5 

F=relative ST address of name 
if the operation can be meaningfully applied to a named scalar or 
all of the lowest level blocks of a named array. 
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• Basic SPIREL Operations 

The most basic SPIREL operations and the corresponding control 
word forms are described in this section. This set is sufficient 
for initial understanding and use of the system. 
Read 

Read operations are specified by control words with w=0 and 
x-0,1,2,4, or 5. The y field specifies the read mode: 

y=0, octal from paper tape -- 18 octal digits per word, each 
preceded by a carriage return 
=1, hexad from paper tape -- 9 hexads per word, each pre- 
ceded by a carriage return 
= 2, zeroes generated by SPIREL 

=3, decimal from paper tape, each word followed by a carriage 
return and in the form discussed in the section on paper 
tape input formats under Use of SPIREL 
= 4, hexad with tags and checksum from paper tape in the form 
punched by SPIREL 
For y=0,l or 2 words are stored with the tag given by z. As words 
are read (except S PIREL-genera ted zeroes, specified by y=2), they 
are checked for proper storage in memory. If the check fails, the 
word as stored and the location of the word are typed in octal on 
the console typewriter. The location given is an absolute machine 
address if x=0 in the control word; it is the relative location in 
the block if x#> in the control word. If SL15 is on, the words 
read (except S PIREL-genera ted zeroes, specified by y=2) are not 
stored but are compared to the contents of the memory location 
where storage would normally take place. If the comparison fails 
the word actually stored in memory and its location are typed on 
the console typewriter as above. 

Read control word forms are as follows: 
™ n J± n OQy 2 0000 fffff Read N words in mode y and store with tag 
z (if y=0,l, or 2) beginning at location F. 
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rmnnn__0_ly z rrrr fffff if codeword at F addresses an array and 
STEX storage control is active, free that array. 
Create a block of length N and form its codeword at F. 
Place octal configuration given by R in the correspond- 
ing bit positions of codeword at F. (The last three 
triads of R specify the B -mod if ica tion and indirect- 
addressing bits to be used. The first triad describes 
the contents of the block being read; its interpreta- 
tion is described under Codewords.) Set initial index=l. 
Read N words in mode y and store with tag z (if y-0 1 
or 2) into the block labelled by the codeword at F. 
RSL n J^L±lVLJL J^J^lll Exactly equivalent to the control word 

nnnnn lyz 0002 fffff, used to read a standard vector 
of da ta . 

^^IL^il^^SyjLJIIIl If codeword at F addresses an array and STEX 
storage control is active, free that array. Create the 
structure of a standard matrix with N rows and R columns 
with primary codeword at F. Read NXR words, successive 
complete rows, in mode y with tag z (if y=0 , 1 , or 2) into 
the matrix with primary codeword at F. 
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• Bas *- c SPIREL Operat ions (continued) 

The most basic SPIREL operations and the corresponding control 
word forms are described in this section. This set is sufficient 
for initial understanding and use of the system. 
Correct 

The correct operation is specified by a control word with 
w = l and x=0,l,2,4, or 5. Correction implies that some part of an 
existing unit is to be replaced with new information without 
completely recreating the unit. Therefore, a correct is just a 
read into an existing block over the previous contents. The fields 
y and z specify mode and tag as explained for read operations, and 
again SL15 on causes comparison instead of storage of what is read. 

The correct control word form is as follows: 
nnnnn ll yz rrrr fffff Read N words into the block labelled by the 
codeword at F, where N and R are specified according to 
the standard rules for address specification. Read in 
mode y with tag z (if y=0,l, or 2). 
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• Basic SPIREL Operations (continued) 

The most basic SPIREL operations and the corresponding control 
word forms are described in this section. This set is sufficient 
for initial understanding and use of the system. 

Tagset 

Tagset operations are specified by control words with w=2 and 
x=0,l,2,4, or 5. The purpose is to set tags on words in the memory, 
and the tag to be set is given by 2=0,1,2, or 3 (tag meaning no 
tag). If y=3 , all words in the address range specified are tagged. 
Otherwise, all words in the address range specified are considered 
instructions and tagging is selective, with a word being tagged 
only if its "class" triad = y. (The class of an instruction is 
given in the third triad from the left.) 

The tagset operation is most often used to set tag 3 on 
instructions in programs to be executed. Then if execution is 
carried out in the trapping mode, the trace program in SPIREL 
monitors on the printer the execution of the tagged instruction. 
This trace output is explained in detail in the section on Use 
of SPIREL. 

The tagset control word forms are as follows: 

nnnnn 20yz 0000 fffff Set tag z on all words of class y from 

location F to location F+N-l, inclusive. 
nnnnn 21yz rrrr fffff Set tag z on all words of class y in the 

block labelled by the codeword at F, where N and R a,re 

specified according to the standard rules for address 

s peci f ica tion . 



CONTROL WORDS 
10 
• Basic SPIREL Operations (continued) 

The most basic SPIREL operations and the corresponding control 
word forms are described in this section. This set is sufficient 
for initial understanding and use of the system. 
Execute 

The exeucte operation is specified by wxyz=3100 or 3500 and 
is designed so that SPIREL will, in essence, transfer control to 
the address specified as the entry to a closed subroutine. This 
operation is usually employed as an external directive to SPIREL. 
Primary control is then with SPIREL; successive programs may be" 
executed, with other SPIREL operations interspersed as desired. 

The form of the execute control word is as follows: 
00000 3100 rrrr fffff Transfer control to word R of the program 

which comprises the block labelled by the codeword at F. 
As a special case, if R=0 , transfer control to word 1, 
or the first word of executable code in the program as 
determined by the initial index. At entry to the 
specified program, all fast registers except PF and T7 
(and T4 if a named program is specified) are set to 
the values they had at the time the control word was 
given to SPIREL. The program executed should be writ- 
ten as a closed subroutine, i.e., it should exit to 
the address contained in PF upon entry. 
The first execute will be used to start a system running 
after loading as necessary into a fresh SPIREL. This first exe- 
cute has special effect if STEX has not been activated. All 
memory in use is consolidated so that items previously loaded may 
be moved to fill gaps of free storage. All free storage is then 
available for further allocations by TAKE. In effect, STEX is 
deactivated prior to the execution called for. See section on 
storage control for more details. 
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• Basic SPIREL Operations (continued) 

The most basic SPIREL operations and the corresponding control 
word forms are described in this section. This set is sufficient 
for initial understanding and use of the system. 
Activate STEX 

The simple storage control algorithm in SPIREL operates on 
a principle of linear consumption of space in memory. If STEX 
the storage exchange program, is active at the time blocks are 
created, later redefinition of these blocks will result in the 
space previously occupied being returned to the system for 
re-use. Thus, at any given time only space which is currently 
labelled by a codeword is in use. Activation of STEX causes 
the STEX domain to be defined 

• from the word beyond the extent of linear consumption, 

this address being stored at FIRSTEX, location 101 

• through the word before the address stored at LASTEX 

location 102. 
This definition is illustrated by: 



FIRSTEX 
set when STEX 
is activated 



LASTEX 1 

set permanently 
- determines extent 
of linear and STEX domains 



last word of linear 
consumption 



STEX 
domain 
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Any block created after STEX is activated is said to be loaded 
under STEX control and will be loaded in the STEX domain. Any_ 
block may be recreated under STEX control, but old space will be 
available for re-use only if it was orginally taken in the STEX 
domain „ 

The STEX storage control system is described in detail in 
another section. 

The control word which causes STEX to be activated is 
00000 3120 0000 00135 
It belongs to the execute class of control words. If STEX is 
activated, subsequent activations are meaningless but harmless. 

The first activation of STEX, which may be used after some 
loading into a fresh SPIREL, has special effect if it precedes the 
use of an execute control word. All memory in use is consolidated 
so that items previously loaded may be moved to fill gaps of free 
storage. The last word of memory in use is then taken as the last 
word of linear consumption and STEX is activated as described 
above. In effect, STEX is deactivated prior to the activation 
called for. See section on storage control for more details. 
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• Basic SPIREL Operations (continued) 

The most basic SPIREL operations and the corresponding control 
word forms are described in this section. This set is sufficient 
for initial understanding and use of the system. 

Print 

Print operations are specified by control words with w=4 and 

x=0,l,2,4, or 5. The format of output is given by y as follows: 
2- format words/line 

oc ta 1 4 

1 hexad 12 (108 chars.) 

2 octal, program format 1 

3 decimal 5 

4 octal, for 8^x11" pages 3 

5 oc ta 1 , wi th tag 1 

6 decimal, with tag 1 

7 decimal, for 8^x11" pages 3 

For all options except y=l (hexad), the value of z controls print- 
ing a,t the left of each line the location of the first word on the 
line : 

z = , to print location in octal 

1 , not used 

2, to not print location 

3, to print location in decimal 

The number printed is the relative location in a block for x=l or 
4 (relative) or the absolute machine address for x=0 (absolute). 
The format for each decimal number printed is: 
floating point 

■d.dddddddddddeidd 

*» v * ^ 

12 decimal exponent, 

digits 2 decimal digits 

if number 
is negative 
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fixed point integer 
Idddddd 



1-15 decima 1 
digits 

if number 
is negative 

The SPIREL monitoring provided if SL14 is off provides a printed 
identifier with each block printed. 

The print control words are as follows: 

nnnnn 40yz 0000 fffff Print in format y N words beginning at 
location F, with location format given by z. 

nnnnn 41yz rrrr fffff Print in format y from the block labelled 
by codeword at F, where N and R are specified according 
to the standard rules for address specification and the 
location format is given by z. 

00000 44yz 0000 fffff Print in format y all of the lowest level 

blocks in the array labelled by codeword at F, with loca- 
tion format given by z. 
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• Basic SPIREL Operations (continued) 

The most basic SPIREL operations and the corresponding control 
word forms are described in this section. This set is sufficient 
for initial understanding and use of the system. 
Punch 

Punch operations are specified by control words with w=5 and 
x=0,l,2,4, or 5. The punch format is given by y and corresponds to 
the mode in which the information punched will later be read: 
y=0, octal 
=1, hexad 

=2, no information (zeroes to be generated internally 
at read time to correspond to information specified 
in punch control word) 
1 =3, decimal format 

=4, hexad with tags and checksum 

=5, high density hexads with tags, parity and checksum 
If z is even, every item punched is preceded and followed by 
control words sufficient to cause the information punched to be read 
at a later time into logical position identical to that at time of 
punching; this is the usual procedure. If z is odd, no control words 
accompany the information punched. 

If z is even and a complete array is punched, the control words 
punched cause recreation of an identical array when the punched tape 
is later read. If z is even and only part of an array is punched, 
the control words punched assume that an identical structure exists 
when the punched tape is later read, and the punched information is 
corrected into the structure. 

Any tape which is punched with the SPIREL punch operations may 
then be read under SPIREL control with SL15 on to effect a validation 
of the punched tape by comparison with the information that was to 
be punched. 
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The punch control word forms are as follows: 
nnnnn 50y0 0000 fffff Punch in mode y N words beginning at 

location F . 
nnnnn 5 lyO rrrr fffff Punch in mode y from the block labelled 
by the codeword at F, where N and R are specified 
according to the standard rules for address speci- 
fication . 
00000 54y0 0000 fffff Punch in mode y all of the array labelled 
by the codeword at F. 



is 
•ess 
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• More SPIREL Operations 

The SPIREL operations described in this section are not 
necessary for initial understanding and use of the system. 
Address Base Manipulation 

SPIREL operations may be applied to blocks and arrays when 

the pertinent codeword address is known. The primary codeword 

address of any array is fixed and known to the user, and is in 

the range 200-277 (octal). When the F fields of control word* 

with x=l are interpreted as machine addresses, the SPIREL addrt 

base is said to be set to zero. For the purpose of applying SPIREL 

operations to sub-arrays, the SPIREL address base may be set so 

that the F field of control words is interpreted relative to the 

_ th 

U element of a block of codewords. Each base change in a sequence 

of base changes will progress one level into an array, and such a 
sequence may go to depth 4. 

Consider an array of three dimensions with primary codeword 
at address A and B-modif ica t ion on each level. Assuming that A 
exists in the machine, the following series of SPIREL operations 
illustrates the use of address base manipulations: 
operation effect 

address base initially set to 
zero 
set address base to A address base at A 

00000 0600 0000 aaaaa 
print I in octal print two-dimensional array 

00000 4400 0000 iiiii A in octal format 

set address base to J address base at A 

00000 0600 0000 jjjjj 

print M in octal, one word print block A T w in the format 

J ,M 
per line, with tag one word per line, octal 

00000 4150 0000 mmmmm with tag 
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set address base back one address base at A. 
level 

00000 0700 0000 00001 
print K in decimal print two-dimensional array A„ 

00000 4430 0000 kkkkk in decimal format 
set address base to N address base at iL „ 

00000 0600 0000 nnnnn 
print from R,P words at print words h^ R , . . . ^ 
Q in octal in octal format 

PPPPP 4100 qqqq rrrrr 
set address base to zero return to initial address 
00000 0700 0000 00000 base setting 
Note that the element of a block is denoted by 77777, and 
negative element addresses are specified in one's complement form. 

The address base manipulation control word forms are as follows : 
00000 06y0 rrrr fffff If y=0 and address base is set to zero, set 
address base down to F if R is null, to F^ if R is not 
null. If y=0 and address base is set down to A, set add- 
ress base down one level to A_ if R is null, two levels to 
A if R is not null. If y=l and address base is set down 
to A, increment base to A+F on same level, then set down to 
<A+F) R if R is not null. 
00000 0700 0000 fffff Set address base back F levels. If F=0 , 
set address base back to zero. 
SPIREL execution of these control words causes no monitoring 
on the printer, but monitoring of SPIREL operations performed with 
the address base set to other than zero reflects the successive 
levels of address base settings in effect. 
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• More SPIREL Operations (continued) 

The SPIREL operations described in this section are not 
necessary for initial understanding and use of the system. 
Insert and Delete Words in Blocks 

The insert operation provides a facility for lengthening and 
shortening blocks labelled by codewords. The insert control word 
form is 

nnnnn 1150 rrrr fffff 
The R word of the block labelled by codeword at F (counting from 
the initial index) is addressed, and N words are inserted at that 
point in the block. N is interpreted in one's complement arithmetic 
If N>0 , N words containing zeros are inserted beginning at the R 
word, and the former R word becomes the R+N word; the length 
of the block is increased by N. If N<0 , N words are deleted be- 
ginning at the R word, and former R+N*" word becomes the R th 
word; the length of the block is decreased by N. If R is empty, 
N words are added to the end of the block. If N is empty, the 
R word and all following are deleted. 

The insert operation requires that space for the new form of 
the block be available while the old form still exists. If STEX 
is active, the space occupied by the old form is freed when the 
new form is complete. 

The delete operation generates the new form of the block on 
top of the old form and copies only the segment after that deleted. 
If STEX is active, the space deleted is freed. If codewords are 
deleted and freed, the space labelled by the codewords is also freed. 

In addition to x = l, x=2,4, or 5 are also allowed. 
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• More SPIREL Operations (continued) 

The SPIREL operations described in this section are not 
necessary for initial understanding and use of the system. 
Change Initial Index 

The initial index of the block labelled by the codeword at 
F is set to N by the control word 

nnnnn 1160 0000 fffff 
N is specified in one's complement form, and an initial index of 
zero is designated by N=77777. 

If the codeword at F contains B-mods, the first word of the 

block is subsequently addressed as vector element F 

N * 
If the codeword at F contains no B-mods, the words preceding 

word 1 in program F are understood to be symbolic cross references 
and are immediately loaded. Programs which are written to refer 
to named quantities, in particular Genie generated programs, re- 
quire these cross references to scalars and codewords in the Value 
Table (VT, SPIREL system vector *122) in positions parallel to the 
positions of the names of the quantities in the Symbol Table (ST, 
SPIREL system vector *1 13 ) . The cross references must be loaded, 
linked to the current VT , each time the program is loaded and 
prior to its execution. 

In addition to x=l, x=2,4, or 5 are also allowed. 
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The SPIREL Operations described in this section are not 
necessary for initial understanding and use of the system. 
Inactivate Storage 

The inactivate operation may be applied to any array by 
using the control word 

00000 1170 0000 fffff 
If the array labelled by the codeword at F is in the STEX domain 
all storage for the array is freed and F is cleared. 

In addition to x=l, x=2 ) 4 J or 5 are also allowed. 
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• More SPIREL Operations (continued) 

The SPIREL operations described in this section are not 
necessary for initial understanding and use of the system. 
Monitor 

If the STEX storage control system is active, blocks in the 
STEX domain are subject to being physically moved when it is 
necessary to concentrate free space. At the console, the user 
may wish to obtain information about the location of a particular 
block or the number of words of free storage. The control word 

00000 3110 rrrr fffff 
causes SPIREL monitoring to occur if SL14 is off. R is interpre- 
ted as in standard address specification as the word in the block 
labelled by the codeword at F for which monitoring is desired. No 
SPIREL operation is performed on the block. 
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9 More SPIREL Operations (continued) 

The SPIREL operations described in this section are not 
necessary for initial understanding and use of the system. 
Reorganize 

If STEX, the storage exchange program, is active, all free 
space in memory may be collected into one contiguous block by 
the control word 

00000 3130 0000 00135 



This operation is called reorganization, and the word REORGANIZATION 
is provided on the printer if SL 14 is off. If STEX is not active, 
this control word has no effect. 
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• More SPIREL Operations (continued) 

The SPIREL operations described in this section are not 
necessary for initial understanding and use of the system. 

Execute Control Word Sequence 

A block may contain SPIREL control words. The execute control 
word sequence operation, when applied to the block, will cause 
SPIREL to interpret the words addressed as control words and carry 
out the specified operations in order. If in the sequence a con- 
trol word specifies a named block by F=0 , then the next word in the 
sequence must contain the name of the block (five printer hexads 
left-adjusted in the format discussed in the section on symbolic 
addressing. Therefore, a control word sequence N words in length 
which contains J\[ names then contains N-fTl control words. 

The control word forms which instruct SPIREL to execute a 
control word sequence are as follows: 

nnnnn 3040 0000 fffff Execute control word sequence N words in 
length stored in memory from location F to location 
F+N-l. 

nnnnn 3140 rrrr fffff Execute control word sequence in the block 
labelled by codeword at F, where N and R are specified 
according to the standard rules for addressing. 
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• More SPIREL Operations (continued) 

The SPIREL operations described in this section are not neces- 
sary for initial understanding and use of the system. 

Map STEX Domain 

The structure, i.e. codewords, for arrays in the STEX domain 
is printed by use of the control word 

00000 3150 0000 00135 
If a codeword outside the STEX domain addresses a block inside 
the STEX domain, it is taken as the primary codeword for an array. 
The structure of the array is then printed. If z is odd, all 
inactive and active block headers are printed, e.g., 

00000 3151 0000 00135 
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• More SPIREL Operations (continued) 

The SPIREL operations described in this section are not 
necessary for initial understanding and use of the system. 
Deactivate STEX 

The control word which causes STEX to be deactivated is 
00000 3160 0000 00135 
It belongs to the execute class of control words. 

The operation involves reorganization of the STEX domain and 
recourse to linear storage consumption by TAKE in the inactive area 
of storage. More details are given in the section on Storage 
Contro 1 . 

If STEX is not active, deactivation is meaningless but harmless 
Activation of STEX after deactivation causes creation of a new 
empty STEX domain. 
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• More SPIREL Operations (continued) 

The SPIREL operations described in this section are not 
necessary for initial understanding and use of the system. 
Obtain Date and Time 

The date and time of day are available in the computer. 
SPIREL will format this information (14 positions in length) for 
printing when the control word 

00000 4300 rrrr 00131 
is executed. The next line actually printed will contain the date 
and time beginning at print position R. SPIREL will format and 
print the date and time beginning at print position R when the 
control word 

00000 4310 rrrr 00131 
is executed. The print positions are numbered 1-108 (decimal) 
from left to right across the page. In both cases, if R is empty, 
the print position is set by SPIREL to 48 so that the date and time 
will appear at the right side of a page 8i inches wide. 



CONTROL WORDS 
30 

• More SPIREL Operations (continued) 

The SPIREL operations described in this section are not 
necessary for initial understanding and use of the system. 

Print or Punch Symbol and Value Tables 

System elements may have names which correspond to single 
word storage addresses and codeword addresses for arrays. When 
loaded under SPIREL control, such elements have their names in the 
SPIREL system vector *1 13 , the Symbol Table (ST). The parallel 
SPIREL system vector *122, the Value Table (VT) , contains the 
corresponding single word or primary codeword. The index of the 
last active ST-VT entry is maintained within the SPIREL system 
as a constant at 117, STPNT. 

These tables may be printed with basic SPIREL control words, 
but a special printing format appropriate to the contents of the 
tables is provided when the following control word is used: 

nnnnn 45y0 rrrr 00000 
N words of ST and VT are printed, beginning at ST and VT If N 
and R are empty, the range for printing is implied by the value of 
y : 

y =0 or 3 all entries in the currently active ST-VT 
y =4 or 7 al l entries with positive indices in the cur- 
rently active ST-VT 
In any case, y=3 or 7 causes only the entries in context (discussed 
< below) in the range specified or implied to be printed out. 

Some or all of the quantities with names in the Symbol Table 
may be punched in checksum format for symbolic loading. To con- 
sider for punching N items beginning with the Rth in the ST-VT 
the following control word is used: 

nnnnn 55y0 rrrr 00000 
If N and R are empty, the range of entries considered for punching 
is implied by the value of y: 

y=0,l,2, or 3 all entries in the currently active ST-VT 
y=4,5,6, or 7 all entries with positive indices in the 

currently active ST-VT 
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In any case, the value of y specifies which items to punch: 

y=0 or 4 all programs, then all data* in the range 

specified or implied 
y=l or 5 programs only in the range specified or implied 
y=2 or 6 data* only in the range specified or implied 
y=3 or 7 all programs , then all data* in context in the 

range specified or implied 
*data consists of scalars in VT and arrays with codewords in VT; 
data on tape is preceded by a control word to activate STEX. 

As a special case, any ST-VT can be printed with the following 
control word: 

nnnnn 46y0 rrrr fffff 
with fffff being the codeword address of the desired ST. The code- 
word for the corresponding VT must be in the memory location 
immediately following the ST codeword. N, R and Y are used as 
described for the system ST-VT. 

Prior to the printing or punching called for by these control 
words, context is automatically determined. This means that the 
ST entries for all items with negative ST indices which are 
necessary for support of the programs currently loaded are "marked" 
with a tag 0; all others will have a tag 1. All items with 
positive ST-VT indices are automatically taken to be in context, 
whatever their tags. This assumes that all "library" items are 
loaded with negative ST-VT indices and that all ST entries with 
negative indices are given a tag 1 prior to loading of any "pri- 
vate" programs numerically or with positive ST-VT indices; this is 
the case with SPIREL and the standard library. The same situation 
may be generated by any user with SPIREL, his own library, and 
his own private routines . 
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• Recursive Application of SPIREL 

In general, SPIREL control words with x = l cause the specified 
operation to be applied to the block labelled by codeword at F. 
If meaningful, x = l may be replaced by x=4 and the operation will 
be applied through the array labelled by codeword at F. This 
recursive application is accomplished by the use of SPIREL by 
SPIREL. In other words, when the SPIREL program *126 (XCWD) 
encounters a control word C with x=4 (except in the case of read, 
w=0) , and F labels a block of codewords, the address base is set 
down to F, SPIREL is applied to the first N blocks on the next 
level with N control words C 1 in which N*=R and R ' =0 , and the 
address is set back up one level. If a control word with x=4 
is applied to a block which does not contain codewords, the be- 
havior of *126 is as if x=l, and the recursion is terminated. 
Thus the depth of the recursion is determined by the structure or 
depth of the array addressed. 

As an example, consider the control word to print in decimal 

00003 4430 0002 00200 
where the array *200 is a standard data matrix. Since the block 
labelled by the codeword at 200 contains codewords, these control 
words are generated and delivered for SPIREL execution: 

00000 0600 0000 00200 

to set address base to 200 
00002 4430 0000 00001 

to print the first two words of row 1 
00002 4430 0000 00002 

to print the first two words of row 2 
00002 4430 0000 00003 

to print the first two words of row 3 
00000 0700 0000 00001 

to set address base back one level, to 
zero . 
If row 2 in the array *200 had contained codewords for 4 blocks of 
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data, the control word 

00002 4430 0000 00002 
in the above sequence would have caused further generation of the 
con tro 1 words : 

00000 0600 0000 00002 

to set address base to 200» 
00000 4430 0000 00001 

to print all of block 200„ 
00000 4430 0000 00002 

to print all of block 200 
00000 0700 0000 00001 

to set address base back one level, 

to 200 
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• Symbolic Addressing 

SPIREL provides facilities for addressing scalars, programs, 
vectors, and matrices by name. A control word with a null F field 
will cause program *126 (XCWD) to read what follows on paper tape 
as a 5-hexad name preceded by a cr punch. The name is added to 
the Symbol Table (ST,*113) if it is not already present. Then the 
F field is assigned the address in the Value Table (VT,*122) which 
parallels the name in ST. Under program control a control word with 
| null F may be given in T7 , a 5-hexad name left-adjusted in R, and 
entry made to the second order of *126 with the order 

TSR *126, CC+1 
Names are represented by 5 printer hexads and are formed by 
the following rules: 

• upper case letters A,B,...,Z are represented by the 

hexads 40, 41,. ..,71 

• lower case letters a,b,...,z are represented by the 

hexads 40,41, ... ,71 

• the first in a sequence of lower case letters is pre- 

ceded by a *26» hexad (backspace punch on flexowriter) 

• the numerals 0,1,. ..,9 are represented by the hexads 

00,01,. .. ,11 

• a name containing less than 5 hexads is filled to 5 

hexads by '25' hexads (tab punch on flexowriter) on 
the right 
Examples of 5-hexad names are 

54 40 55 25 25 for MAN 
54 26 40 55 25 for Man 
54 40 55 01 25 for MAN1 
26 54 25 25 25 for m 
The printed load record for a run gives the name of any quan- 
tity loaded or referenced symbolically. To the right of each name 
appears a number F which is the relative Symbol Table address of 
that name. A SPIREL control word of the form 

nnnnn w5yz rrrr fffff 
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.th 



is equivalent to symbolic reference to the F Symbol Table entry 
for all operations except READ. This form is easily typed for 
console communication to SPIREL. 

Consider the ST-VT configuration 



ST 
13 
14 
15 
16 



Al 


A2 


A3 


A4 



VT 



»■ ■ " ■ '— - " ' ■ 

» - ■■ '■ "- 



scalar Al 

codeword for vector A2 

primary codeword for matrix 

A3 
codeword for program A4 



The control word with symbol 

00001 0030 0000 00000 cr 40 01 25 25 25 
will cause the scalar Al in decimal form to be read into Al's 
VT entry. 
The control word with symbol 

00000 4130 0000 00000 cr 40 02 25 25 25 
or the control word 

00000 4530 0000 00014 
will cause the vector A2 with codeword in A2's VT entry to be 
printed in decimal form. 
The control word with symbol 

00000 5440 0000 00000 cr 40 03 25 25 25 
or the control word 

00000 5540 0000 00015 
will cause the matrix A3 with primary codeword in A3 ' s VT entry 
to be punched with symbol. The tape punched will load at a later 
time, creating a matrix with primary codeword in A3 ' s VT entry, 
even if this entry is not in exactly the same relative VT location. 
The control word with symbol 

00004 0420 0003 00000 cr 40 03 25 25 25 
will cause the space currently addressed by the codeword in A3 ' s 
VT entry to be freed. Then a 4 by 3 matrix of zeroes to be created 
and addressed by the codeword in A3 ' s VT entry. 
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The control word with symbol 

00000 4100 0000 00000 cr 40 04 25 25 25 
or the control word 

00000 4500 0000 00016 

will cause the program A4 with codeword in A4's VT entry to be 

printed out in octal. 

The control word with symbol 

00001 4030 0000 00000 cr 40 01 25 25 25 
or the control word 

00001 4530 0000 00013 
will cause the scalar Al, stored in Al's VT entry, to be printed 
out in decima 1 . 

The name of a double operand (such as a complex scalar or 
non-scalar) is attached to the first component of the pair. The 
second component is named "ditto" which is printed '«-«-«-«-«-' and 
is represented by the hexad string 

75 75 75 75 75 for «—.-«-4- ("ditto") 
For any double operand, its name and "ditto" appear consecutively 
on the Symbol Table. If K is a double operand, given the name K, 
SPIREL will operate on the first component; then given the name . 
"ditto", SPIREL will operate on the second component. To operate 
on the second component of K independent of the first, SPIREL must 
be given the name K before the name "ditto" with a control word. 
This may be accomplished by use of the monitor control word which 
designates no operation to SPIREL: 

00000 3110 0000 00000 cr 52 25 25 25 25 

nnnnn wxyz rrrr 00000 cr 75 75 75 75 75 
If K has ST relative address 31, then "ditto" for K is at 32. 
The first component is addressed by the control word 

nnnnn w5yz rrrr 0003 1 
and the second component by 

nnnnn w5yz rrrr Q0032 
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© Input through the Console Typewriter 

When a SPIREL system comes off magnetic tape, control is in 
the console communication loop f at PAUSE — so named because the 
message *PAUSE* appears on the display scope. The blue light on 
the console typewriter will be on. 

At any time, PAUSE may be obtained by going to location 23 or 
24. 

At PAUSE the console typewriter is used to input commands to 
the SPIREL SYSTEM. As text is input, it is displayed on the scope. 
The 'bs' (backspace) key causes the last character entered to be 
erased. Typing a question mark '?' causes the line to be erased. 
A carriage return or semi-colon ' ; ' causes the accumulated command 
to be interpreted and printed. 

To simply have text transmitted to the printer, '*' should be 
used as the first character. 

The system interprets and obeys a variety of commands which 
may be input at the console: 

a) Control commands to halt or have SPIREL read control words 
from paper tape ; 

b) SPIREL commands to have control words formed and passed to XCWD; 

c) REGISTER commands to cause machine registers to be loaded; 

d) MAGNETIC TAPE commands to search or read the system tape or 
pass control to manual mag-tape system; 

e) ARITHMETIC commands to perform execution of arithmetic state- 
ments. See LIBRARY — ^IFE. 

It is important to understand that while in the console 
communication loop, at PAUSE or with unterminated text displayed, the 
only means of communication is through the console typewriter; field 
switches may not be used. Direct manual control may be exercised at 
'HALT', obtained by issuing the 'halt' CONTROL command. At HALT the 
machine stops; all registers are set as directed by the user. 
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• Control Commands 

Control commands are designated by single characters or keys. 
In all cases, the command is displayed on the scope and printed. 
The control commands are: 
halt — The machine stops with 'HALT' displayed in U. Lights and 
(uc) H(cr) registers (except U,R,S,T7 ,P2 ,B6) are set as at the last 

halt, or as changed by intervening executions and register 
commands. B6 is set to the top of the SPIREL B6-list 
(*112) . Lights and registers may be reset manually at the 
halt. If a control word is typed into U, pushing CONTINUE 
causes the typed control word to be passed on to XCWD. If 
'HALT 1 is left in U and there is paper tape in the reader, 
pushing CONTINUE causes one control word from tape to be 
passed on to XCWD and FETCHing causes control words on the 
tape to be processed until the end of tape or a null con- 
trol word is encountered. Pushing CONTINUE with 'HALT' in 
U and no paper tape in the reader causes return to the 
PAUSE, 
fetch — Control words are read from paper tape and passed to 
(uc) F(cr) XCWD. Control returns to the console communications loop 
or when the end of tape or a null control word is encountered, 
"index" The fetch command is equivalent to halt and FETCH with the 
field switch, 
cont — A single control word is read from paper tape and passed 
(uc) C(cr) to XCWD. Control then returns to the console communications 
loop. The continue command is equivalent to halt and 
CONTINUE with the field switch. 



Vhis occurs only if Console (*173) was entered at the 1st instruction 
or from location 23. If entry is at the 2nd instruction or from 
location 24, B6 is left as it was at entry. 
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• SPIREL Commands 

SPIREL commands provide a convenient expression of control word 
input to XCWD. Each command is input as text followed by • t' which 
causes the command to be interpreted and the corresponding control 
word to be passed to XCWD. The form of a SPIREL command text is a 
two-letter key followed by qualification information in which 

n denotes name or octal codeword address 

i,j,k denote octal numbers, complemented by minus sign 

(2) 
s denotes type or selected portion 



o denotes octal absolute address 

f denotes format specifier 

d denotes string of data words separated by commas 



(2) 



The SPIREL commands are: 

key function commands 

AS activate STEX 

BD base down 

BU base up 

BZ base to zero 

CB create a block 

CH check bounds CH n s 

CM create a matrix CM i BY j AT n s 



AS 










BD 


n 


s 






BD 


n* 


i/. 


► • t 


J 


BU 










BU 


i 








BZ 










CB 


i 


AT 


n 


s 



CO correct 



CO nJi, . . . , j s = d 



CO o s = d 



(1) 
(2) 



carriage return or ';' 

Form explained in later section 



activate STEX 

set address base down to n 
set address base down to 
n. 

set address base up one level 
set address base up i levels 

set address base to zero 

create a block (no B-mods) 
of zeroes i long with 
codeword at n 

set tag to check bounds on n 

create a standard matrix of 
zeroes i rows by j 
columns with codeword at n 

correct data words into array 
n, starting at word 

n. 
i # • • • / 3 
correct data words into 
locations o, o+l,... 
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Key function commands 
CV create a vector CV i AT n s 



CW control word 



MP 
PR 



CW i j k n s 



DS deactivate STEX DS 

ER erase ER n s 



EX 


execute 


EX 


n 






EX 


nii 


ID 


insert/delete 


ID 


i AT n?j s 






ID 


i AT n s 






ID 


nli s 


IN 


initial index 


IN 


i AT n s 


MO 


monitor 


MO 
MO 


n s 

n*i, . . . , j s 



ma£ 
print 



MO i AT nlj , . . . ,k s 

MO o A 
MO i AT o 

MP 

PR n f s 

PR n?i, . . . , j f s 

PR i AT nij,. . . ,k f s 

PR O A f s 
PR i AT o f 



create a standard vector 
of zeroes i long with 
codeword at n 

send control word with 

N field=i, WXYZ field=j 
R field=k, F field=n 
or null with name n to 
XCWD 

deactivate STEX 

erase array with code- 
word at n 

execute program with code- 
word at n 

execute n starting at 
word i 

insert (i>0) or delete 
(i<0) j i | words at n . 

insert (i 0) i words at D 
end of n 

delete word n. and all 
following 1 

set initial index of n to i 

monitor all of n 

monitor word n. 

-L i • • • 1 3 
monitor i words in array 
n f starting at word 

D / • • • #-K 

monitor one word at 

location o 
monitor i words starting 

at location o 

map STEX domain 

print all of n 
print word n. 

print i words in array n, 

starting at n . , 
3 i • • * i "■ 
print one word at location 

location o 

print i words starting 

at location o 
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key function 



commands 

where f blank causes printing in decimal 
f = causes printing in octal 
H causes printing in hexad 
P causes printing in program format 



PU 



punch 



RE 
ST 



TO 
Tl 

T2 
T3 
TR 



PU n f s 

PU n4i, . . . , j f s 

PU i AT n* j,. ..,k f 



PU o A f s 
PU i AT o f 



punch all of n 

punch word n. 

1 / • . . , ] 

punch i words in array n, 

starting at word 

n • v 

punch one word at 

location o 
punch i words starting 

at location o 



where f blank causes punching in hexads with checksum 
f ■ causes punching in octal 
H causes punching in hexads 
Z causes punching of space-taking control 
words only 



reorganize 
print ST 



set. tag 
set tag T 

set tag 2 
set tag J 
set tag to trace 



RE 

ST 
ST U 

ST i AT 



T* n s 

T* nli,. . . , j 

T* i AT n? j , 



T* o A s 
T* i AT o 



reorganize STEX domain 

print all of ST-VT . 
print user Y s Tpositive) 

portion of ST-VT 

print i words of ST-VT 

starting at relative 

location j 

set tag on all of n 
set tag on word n. 



,k s 



/•••/. 



where 



* = 



■ 0,1,2,3, or R 



set tag on i words in 

array n, starting at 

word n . , 
] , • • • ,x 

set tag on location o 

set tag on i words 

starting at location 
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• Register Commands 

Register commands cause machine registers to be loaded. Each 
command is input as text followed by 't' which causes the command 
to be interpreted and the specified register set. The form of a 
register command is 

R = d 
where R is the register name and d denotes a single data word 
(form explained in later section) . 

The registers which may be loaded and R for them are: 

index registers CC(effects transfer) ,B1,B2 ,B3 ,B4,B5 
© Special Options 

(1) Any SPIREL command of the form: 

XX i AT n (lu w) 

where XX is any valid command, may be written: 

XX n (iu...v). FROM j TO k 
where j and k are program order numbers, etc. Thus the 
need to know the actual number of words (in octal) being 
operated on is eliminated. Note that j must be strictly 
less than k. For example: 

PR 5 AT VI 2 would become 

PR V FROM 2 TO 7 

a more natural form. 

12 

(2) If a GENIE program is compiled with the SL option, any 

internal variable name or statement label may be used 
as a subscript in a SPIREL command. However if a GENIE 
program was begun with RSEQ only statement labels may 
be used. 

For example: if A is an internal constant in 
program F, one might say 

PR F*A 
which will print the value of A. Or to trace the second 
FOR loop of program F: 

TR F FROM -F0R2 TO -RPT2 
thus eliminating the necessity to know either order number 
or how many words the loop contains. 
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• Magnetic Tape Commands 

Magnetic tape commands provide communication with the magnetic 
tape system with manual control or for reading of the system tape 
and tape searching. (See separate section for details on MT System) 
Each command is input as text followed by 't 1 which causes the 
command to be interpreted and obeyed. 

The magnetic tape commands are: 
command function 



read nearest PLACER 
go to MT 'arrow 1 halt 

read block i (octal number) from MT system tape 
read nearest SPIREL 

search (overlapped with computation) to block i (octal 
numbers) on MT system tape 



PL 




MT 




MT 


i 


SP 




TS 


i 
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• Data Input Formats 

Data may be input from the console into registers (by the 
register commands) and into absolute locations and arrays (by the 
SPIREL command to correct) . + Each data word specifies the content 
of one computer word and may be input in decimal, octal, or al- 
phabetic form. 

Decimal integers , as 
1968, -29 

may contain up to 18 characters and none may be '.• or '*• or space. 
Decimal floating point numbers, as 

.1, -2.95678, -0.5*6, 91.7*-9, 5*3 
may contain up to 18 characters, no spaces, and either '.' or '*• 
or both must appear. 

Octal numbers, such as 

+252525, +01.01000.00.4001.77765, +10, +3120.0000.00135 
may contain up to 18 digits after the '+' (which designates octal) 
and not including any '.'which may be used as a spacer. Leading 
zeroes are assumed if fewer than 18 digits are given. 
Alphabetic words, such as 
*A BC DEF*,* 12 3X YZ* 
may contain up to 9 characters after the initial '*• (which designates 
alphabetic) and not including the final •*'. The final '*• may be 
omitted if the word ends the command. Trailing spaces are assumed 
if fewer than 9 characters are given. 



t 
The number data words is found by actual count and any other number 

is ignored. For complex arrays or locations the data string is split 

in half, (the first half real and the second half imaginary), and the 

number of complex pairs is half the number of single words. 

SPIREL September, 1967 



CONSOLE COMMUNICATION 

9 

• Type Format (s ) 

The s type format specifier may be blank, R, I, or C. Blank 
means to determine the type, real or complex (double) , and perform 
the operation accordingly. (Complex can only be implied if a name 
is on the symbol table.) R (real) and I (imaginary) mean perform 
the operation on that half of the complex named location or array. 
C (complex) means imply complex type on the name which causes both 
real and imaginary parts to be operated on. When a CO (correct) is 
used and complex may be implied, refer to page 8, Data Input Formats, 
for details. 
© Mode Format (f ) 

A — absolute. If referring directly to a core address and not 
a name on the symbol table the A specifier must be used 
if the memory location is not to be taken as the location 
of a codeword, from which an array would be printed. 
"^H — hexad (BCD or literal) 
*0 — octal 
^D — decimal 
P — program (only for print) 
© Errors 

(1) REFERENCE MADE TO SYMBOLIC NAME NOT ON SYMBOL TABLE 



+ 
Meaningful only with print and punch command. 
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USE OF SPIREL 



Normal Running 

The procedure for running with SPIREL is usually as follows: 

1) load SPIREL from magnetic tape 

2) load private programs and any data which may be outside 

the STEX domain from paper tape 

3) if data is to be loaded before execution, activate STEX 

with the control word 

00000 3120 0000 00135 
to pack all items previously loaded and relegate all 
free storage to dynamic allocation by STEX — then 
load data 

4) position "run tape" which contains control word to start 

execution, any data to be read under program control, 
and perhaps control words for further SPIREL operations 

5) CONTINUE to start system running; if STEX has not been 

activated, first execution will do so — pack all items 
previously loaded and relegate all free storage to 
dynamic allocation by STEX 
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• Input Paper Tape Formats 

The SPIREL read control words designate the read mode to be 
employed in reading the pertinent data from paper tape. For each 
read mode there is an appropriate punch format for the data on 
paper ta pe . 

The octal format (y=0) prescribes that each word consist of 
exactly 18 octal digits and that each word be preceded by a "spill 
character", usually a 'carriage return' punch. Octal tapes may be 
punched manually on the flexowrit.er. Also, a punch control word 
with y=0 produces octal format on paper tape, but this is ineffi- 
cient use of paper tape since only three channels are utilized. 

The hexad format (y=l) prescribes that each word consist of 
exactly 9 hexads and that each be preceded by a "spill character", 
usually a 'carriage return' or 'tab' punch. The hexad format 
utilizes all six data channels on paper tape and is equivalent to 
the octal format at twice the density. Hexad tapes are usually not 
punched manually on the flexowriter but are easily produced through 
SPIREL with a punch control word in which y=l. 

The hexad with tag and checksum format (y=4) is produced only 
by a SPIREL punch control word with y=4. For example, output tapes 
from the assembly program and the compiler are in this form. The 
advantages of this format over the plain hexad format are implied 
by the name: 

• Tags on words are represented on paper tape and reproduced 
when the tape is read. 

• A sum over all words is formed as the tape is punched and 
represented on the tape. This sum is recomputed when the tape 
is read and the computed sum is compared to that punched on the 
tape. This provides a check on both punching and reading. 

The format for one word consists of 9 hexads and one tag triad per 
word, where tag representations are 

1 for tag 1 

2 for tag 2 

3 for tag 3 

4 for no tag 
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A spill character (25) is always punched before the data. 
The physical format of the punched tape is shown below. 



.spill character (25) 



1st word 
(9 hexads) 




checksum 
(9 hexads) 



1st word tag' 
e.g. 4 = tag 



last word tag 1 
e.g. 2 = tag 2 



The high density hexad with tag, parity, and checksum format 
(y=5) is produced only by a SPIREL punch control word with y=5. 
The high density is obatined by not punching null hexads and is 
preceeded by two hexads of code, tags, and parity. Errors can be 
more readily detected since the total odd parity on the word, its tag, 
and the code is punched with each word. A spill character (26) is 
always punched before the data which is followed by the usual checksum. 
Tag is punched as and is added as a to the checksum. 

The code in the first two hexads of every word show the position 
of the non-null hexads in the original word in order to read the data 
back in. The O's in the nine bit code show the position of the null 
hexads. Thus the number of hexads punched is the number of l's in 
the code. The tapes punched in this format are virtually impossible 
to read by hand. The physical format of the high density punched 
tape is shown below. 



4- 



spill character (26) 



non-null 
hexads of 
1st word 




hexads for code, tags, and parity 



last 
word 



checksum 
(9 hexads) 



p = odd parity bit 

xx = tag value 

(0 s xx s" 3) 

1 thru 9 = code bits 
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The words with tag are not separated by any "spill characters" but 
are immediately adjacent to each other. A set of words punched 
with a single punch control word is preceded by a single "spill 
character' and followed by the checksum, one hexad word which is 
the fixed point sum of right half-word plus left half-word plus 
tag representation for all words in the set. 

The decimal format (y=3) for a single word depends on the in- 
ternal representation desired for the number. Tapes in decimal for. 
mat may not be punched by SPIREL, but this is the format most fre- 
quently utilized for manually prepared data input tapes. A set of 
decimal words to be read due to the execution of a single read 
control word with y=3 is begun with a 'lower case' punch. Spaces 
and case punches are then ignored, and a punch other than one of 

0123456789. + - e f t * 
terminates a number which is being read. The character punched 
after each number to terminate it is most frequently a 'carriage 
return' punch. In the particular formats which follow, the letter 
d stands for a decimal digit, one of 

01234567 89 
The punches 'e' and ' *' may be used interchangeably. If a decimal 
point is punched in representing a number, it may begin or end the 
number. The particular decimal formats are as follows: 

integer ± D of no more than 14 decimal digits, with tag 
G = l,2,3,4. G=l,2,3 causes the number to be stored with 
tag 1,2,3. G=4 causes the number to be stored without 
changing the tag in memory. 
±dd***dddtG 

D ' no tag if this field omitted 

+ understood if no sign present 
The decimal point is assumed to be to the right of the 
least significant digit punched and at the right end of the 
machine word. Integer arithmetic is to be employed. 



,±p 
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4 



floating point ±DxlO , in absolute value between 10 
10 , with tag G=l,2,3 ,4 



•78 



and 



P=0 understood if this 
field is omitted 



±dd---dd.dd---dde±p^tG 

v 

D 



— no tag if this 

field is omitted 
+ understood if — > 

no sign present 
Decimal digits in D beyond the 14th are ignored. Floating 
point arithmetic is to be employed. The floating point 
form is recognized only if D contains a decimal point or 
if the field e±pp (or *±pp) appears, 
fixed point fraction ±DX10 ±P in absolute value >2~ 47 
with tag 0=1,2,3,4 



and<l, 



•this field may 
not be omi tted 



±dd' •°dd.dd*-*ddt±7ptG 

V _ - S>Sr > 



D 



' no tag if this 

field is omitted 
+ understood if 
no sign present 

Decimal digits in D beyond the 14th are ignored. The rep- 
resentation in the machine assumes that the decimal point is 
at the left end of the mantissa. Fixed point arithmetic is 
to be employed. 
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• Tracing 

Tracing is a means of observing the execution of instructions. 
This facility is provided in the SPIREL system. The instructions 
to be traced must bear a tag 3. Mode light 3 and trapping light 
6 must be turned on prior to a run in which tracing is to occur; 
this is the normal ML, TL configuration when SPIREL is initially 
loaded. The trace is provided by the SPIREL system program *13 
(TRACE) . 

Trace options exist to obtain arithmetic register content 
(U,R,S) in either octal or decimal and B-register content 
(Bl, . . . ,B6,PF) in octal. For each tagged instruction the first 
five fields of trace output are as follows: 

( cc ) : address of the instruction relative to the first 
word of the last program tagged with a tagset 
con tro 1 word 

(CC 1 ): address of the next instruction to be executed rela- 
tive to the first word of the last program tagged 
with a tagset control word; printed only for non- 
sequential transfer 

(M'): the final address formed as a result of decoding 
field 4 of the instruction 

(ATR) : contents. of the arithmetic tag register (1,2, or 3) 
after field 4, not after execution of the instruc- 
tion; blank if the tag is zero 

(TF'): T-flags, if they are on; printed as two octal digits, 
the rightmost bit for T7 , next for T6 , etc. 

C 1 ): the instruction executed, formatted into fields 

The arithmetic register trace then provides in octal or decimal: 

(S) : the contents of S as a result of execution of field 

4 of the instruction, before the operation in 

field 2 is carried out 
( u ') : contents of U after execution of the instruction 
( R ') : contents of R after execution of the instruction 

And the B-register trace provides (Bl 1 ), (B2 1 ), (B3'), (B4'), (B5'), 
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(B6'), (PF 1 ) the contents of the seven B-registers after execu- 
tion of the instruction. 

Mode Lights may be used at the console for selections of trace 
options. 

To erase the tag from each instruction traced, turn on ML15 . 

To produce trace output only if a branch of control occurs, turn 

on ML14. 
To obtain B-register trace only, turn on ML13 . 

To obtain arithmetic trace in decimal, turn on ML10 ; this op- 
tion is effective only if T-flags are not present on T4 , T5 , 
and T6; this option uses the SPIREL print matrix (*116) and 
should not be used on programs which are doing set-ups for 
prin ting . 
To obtain both arithmetic and B-register trace (two lines per 
instruction traced) turn on ML9 with ML13 off. 

The trace procedure saves all machine registers, even the T-flags, 
except S and P2 . If the contents of S is to be preserved from one 
instruction to the next, neither may be traced. Orders which set 

P2 or assume that P2 in unchanged may not be traced with one 

exception, that an order which sets P2 to be used on ly as a trans- 
fer address may be traced, but subsequent orders which assume an 
unchanged P2 may not be traced. This exception allows transfers 
to the SPIREL programs *136(SAVE) and *137 (UNSAVE) to be traced, 
but these routines themselves may not be traced. 

An order to be executed in the repeat mode may be tagged for 
tracing only if the order which causes entry into the repeat mode 
is also traced and is of the form 

MLN 

or SBi,ERM 

or ABi,ERM 

and the instruction executed immediately after the repeated in- 
struction is also traced. The trace output for the traced repeated 
instruction consists of one printed line in which (CC) , (ATR) , (I), 
and (S) pertain to the first execution and (CC 1 ), (TF 1 ), (M ' ) , (U 1 ), 
(R 1 ), and (Bi 1 ) pertain to the last execution. 
SPIREL February, 1967 
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6.1 
• Arithmetic Error Monitor 

While running with SPIREL the following arithmetic error 
conditions may be monitored: mantissa overflow, exponent over- 
flow, and improper division. To monitor a condition the correspond- 
ing trap light must be set on: respectively MOV, EOV, and 4- . If 
an error which is being monitored occurs, a message is printed. 
Information provided includes the error made, the location of the 
instruction generating the error, and the name or codeword address 
of the program containing that instruction. 
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6.2 
o Block Bounds Check 

While running with SPIREL, addressing into arrays may be monitor- 
ed to check that references are not made outside the bounds of the 
array. This is accomplished by placing a tag 1 on the primary code- 
word for the array and running with trapping light 13 on, as when 
SPIREL is initially loaded. Checking is provided by the SPIREL 
program *20 (CHECK). 

If a tag 1 is encountered in indirect addressing in field 4 of 
an instruction, the program CHECK gets control through a hardware 
trap. The index value k at each level of indirect addressing is then 
checked to see that 

i<k<i+n 
where i is the initial index and n is the length in the codeword for 
that level. If an error is detected, information is printed which 
includes the array name, index values at each level, the location of 
the offending instruction, and the name or codeword address or the 
program containing that instruction. Storing out of bounds is in- 
hibited; otherwise, the checked instruction is executed normally. 

To successfully check bounds on an array, the tag on the code- 
word must be preserved during execution. All SPIREL and library 
routines and all Genie-generated code preserve tags on codewords. 
Preservation in private code is the responsibility of the user. 

The program CHECK uses control trapping on tag 1 after execution 
of the checked instruction, but this trapping facility may simul- 
taneously be applied to non-checked instructions by the user. 
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• Diagnostic Dump 

If a program stops unexpectedly, the contents of machine regis- 
ters, the codeword region, the B6-list, and a map of the STEX domain 
may be printed by using the diagnostic dump, SPIREL system program 
*120, with entry prefix in machine locations 00027-00036 (octal). 
The procedure for obtaining this output is as follows: 

— Record, mentally or otherwise, the contents of CC as displayed 
on the console if the instruction at which the stop occurred 
is of interest. 
—Type 00027 (octal) into CC and FETCH to pass control to the 

diagnostic dump routine. 
— A programmed halt occurs within the diagnostic dump routine. 
Type the recorded (CC) into U and CONTINUE; or simply 
CONTINUE if (CC) was not recorded. 
— Diagnostic dump output is provided on the printer: 

Register contents, (CC) and (I) given as if nothing was 

typed into U at the halt. 
Codeword region, with SPIREL address base shown in heading 

output . 
B6-list. 

STEX domain map. 
Control is returned to the loop for console communication with 
SPIREL. Registers are restored as follows: T-registers 
without flags except T7 , B-registers except CC and B6 and PF, 
special purpose registers except P2 , all lights. The SPIREL 
address base is set to zero , and B6 is set to the first word 
of the B6-list. The user may continue to use SPIREL. 
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• High-Speed Memory Dump 

If a program fails in such a way that the SPIREL system can- 
not be reached, a printed record of the memory configuration at 
the time of the failure is occasionally of assistance in debugging. 
For this purpose a self-loading High-Speed Dump tape is available 
at the conso le . 

To load the tape, position the Dump tape in the reader, depress 
RESET, then LOAD. Do not CLEAR. The program loads at 57400. The 
contents of machine registers are printed out, and a halt occurs with 

(U) : 57400 0000 0000 0010 
Pushing CONTINUE causes dumping of the contents of memory, from 
location 10 to location 57400. To change this dump range type into 
U at the halt type the new upper bound in the first five traids and 
the new lower bound in the last five traids. 

The dump output is printed with four full words per line and 
the address of the first word at the left of the line. Each full 
word is split into five fields, corresponding to the fields of 
the machine instruction. If a word is tagged, an a, b, or c 
(corresponding to tag 1, tag 2, or tag 3) is printed immediately 
to the right of the tagged word. 
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• Error Messages in SPIREL 

There are no error halts in the SPIREL system. Nearly all error 
conditions result in an error message being printed and a return 
through location 24 to the console communication loop. The print- 
ing results in a minimal disturbance to the system so that the source 
of the error can better be determined. 

The message is printed by ERPR *172. Where possible ERPR 
determines the program and order number where the error originated 
and prints this information with the message. The possible error 
messages are listed below and are self explanatory: 

1. CHECKING ERROR ON PAPER TAPE INPUT, 

2. INSUFFICIENT SPACE IN MEMORY FOR READ, 

3. INSUFFICIENT SPACE IN MEMORY FOR INSERT, 

4. IMPROPERLY FORMATTED DECIMAL NUMBER, 

5. ORDER TRACED WHICH REQUIRED P2 SAVED, 

6. ATTEMPT TO SET ADDRESS BASE TO FIFTH LEVEL, 

7. ATTEMPT TO SET ADDRESS BASE BACK TOO MANY LEVELS, 

8. ATTEMPT TO SET ADDRESS BASE BACK WHEN SET TO ZERO, 

9. ATTEMPT TO TAKE BLOCK OF ZERO LENGTH, 

10. ATTEMPT TO EXECUTE NON-EXISTENT PROGRAM, 

11. ATTEMPT TO SET ADDRESS BASE TO NULL CODEWORD, 

12. ATTEMPT TO SET ADDRESS BASE PAST LAST CODEWORD LEVEL, 

13. REFERENCE MADE TO SYMBOLIC NAME NOT ON SYMBOL TABLE, 

14. SYMBOL TABLE-VALUE TABLE IS FULL, 

15. IMPROPER MEMORY CONFIGURATION. 

It is not suggested to use the system after any of the above 
error conditions occur without first rectifying the error. 
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• Symbol Table-Value Table Print Format 

The SPIREL control word 

nnnnn 45y0 rrrr 00000 
provides parallel printing of corresponding Symbol Table (ST) and 
Value Table (VT) entries. These "tables" are SPIREL system standard 
vectors *113 and *122 respectively. The output is in seven fields 
as f o 1 lows : 

(1) relative address in vector, i.e., index 

(2) symbol from bits 1-30 of ST entry 

(3) bits 31-39 of ST entry in octal: 

000 if VT entry contains a scalar 
400 if VT contains a codeword 

(4) address field of ST entry, giving the absolute 

address of the corresponding VT entry in octal 

(5) tag on ST entry: if item is in context, 1 otherwise 

(6) VT entry: decimal value associated with name in ST 

entry if it is a single-word quantity; codeword 
(in octal) for array associated with name in ST, 
empty if the array does not currently exist. 

(7) tag on VT entry 

nnnnn 46y0 rrrr fffff 
provides parallel printing of the ST-VT whose ST codeword is at 
fffff. The VT codeword must be in the memory location immediately 
following the ST codeword. 



SPIREL July, 1968 



% 

USE OF SPIREL 
11 

• SPIREL System on Magnetic Tape 

Copies of the SPIREL system for 24K memory are located on the 
MT System magnetic tape. When one of these copies is read into the 
memory, control is in the console communications loop. The Mode 
and Trapping Lights are set to permit tracing of tagged instructions 
and block bounds checking. Loading of "private" blocks will begin 
at about location 10000 (octal) and may extend to location 57400 
(octal) . 
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STORAGE CONTROL 
• Linear Consumption by TAKE 

The simple storage control algorithm in the SPIREL system is 
called TAKE (in program *135) . TAKE is given all of inactive storage 
as its domain when STEX is deactivated. TAKE operates on the princi- 
ple of linear consumption of memory. A pointer to the first inactive 
word of storage, address L, is maintained. A request for M words 
is satisfied by an allocation of M words at L, and L is incremented 
by m. This is an irreversible procedure in that space, once all- 
ocated, may not be reclaimed for use in later allocations. L is 
stored in the address field of STORAG, location 100 (octal) . 

The upper bound on allocatable storage is specified by the 
contents of location 102 (octal) : 

LASTEX=last allocatable address +1 
In the standard SPIREL only the magnetic tape system communication 
routine is above allocatable storage. In producing a SPIREL (see 
System Duplicator section) any upper bound may be specified. 

TAKE may be utilized "privately" to obtain blocks of memory in 
a way compatible with allocation by the SPIREL system. On entry to 
program *135, (B2)=number of words desired. On exit (Bl)=address 
to first word of block allocated. If the request for a space can- 
not be satisfied, (Bl)=0 on exit. 
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2 
• Activation of STEX and its Domain 

I The SPIREL Storage Exchange algorithm STEX (in *135) is 
activated by the control word 

00000 3120 0000 00135 
If L is the address of the first word of inactive storage at the time 
STEX is activated, the STEX domain is [L, (LASTEX) -1] , all inactive 
storage. The address of the first word in the STEX domain is stored 
in the address field of FIRSTEX, location 101 (octal) . Deactivation 
of STEX for recourse to the TAKE system is explained in a later section, 
STEX provides optimal use of storage because 

• blocks may be freed explicitly, making such space as be- 
comes logically unnecessary available for reassignment to 
blocks logically required; 

• blocks whose codewords are re-used to label new blocks 
are automatically freed for re-use; 

• if the total free space in memory is sufficient to satis- 
fy a request for a block but the "first" free block (explained 
later) is not large enough, free space is automatically concen- 
trated and the allocation is made. 

An Y block may be freed at any time. Only if STEX is active and the 
block is in the STEX domain will the space be available for re-use 
in later allocations. 

The first STEX activation in a fresh SPIREL has special effect 
if it precedes the use of an execute control Word. All memory in 
use is first concentrated outside the STEX domain which is defined 
as all free memory. Items loaded prior to this first STEX activa- 
tion may be moved to fill gaps of free space. 

FIRSTEX indicates whether or not STEX is active: 
(FIRSTEX) null if STEX is not active 
(FIRSTEX) not null if STEX is active 

with exponent not null prior to first execute or 

activate STEX control word 
with exponent null after user activation 

SPIREL May, 1967 
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• Memory Configuration Generated by STEX 

The domain of STEX is divided into active and inactive areas. 
Each area is further segmented into blocks, not necessarily adjacent. 
Each active block is labelled by a codeword. The first word of an 
active block is not a part of the block from the user's point of 
view; it is called the back-reference for the block and contains 
in its address field the codeword address of the block. One inactive 
block may be found from location 100, which contains the total number 
of inactive locations in the memory in its first 15 bits and the first 
word address of this inactive block in its last 15 bits. Each in- 
active block contains in its first word the length of the block it 
heads in the first 15 bits. The first word of an inactive block is 
inactive in the sense that it may be activated just as any other 
word in the block. 

An illustration of the STEX memory configuration is given below: 
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In general, the length of the STEX domain is given by 

n m 

where the domain is divided into n inactive blocks and m active 
blocks. Note that K is a constant, determined at the time STEX is 
activated, and K = (LASTEX)-L, where L is the address of the first 
word of inactive storage at the time STEX is activated. 

The codewords that address the active blocks may be located 
anywhere in the memory, but the blocks of every array must lie 
wholly inside or outside the domain of STEX. 

A duplicate codeword may exist for any array. Its existence 
is indicated by a duplicate back-reference stored in the same word 
as the normal back-reference but in the 15 bits adjacent to the 
address field. Inactivating the duplicate will leave the array 
unchanged and clear the duplicate. Inactivating the original code- 
word will have the additional effect of clearing the duplicate. 

If it is necessary to move a codeword for an active block, the 
back-reference for the block must be appropriately altered. For 
instance, when the block addressed through codeword A is activated 
the back-reference for the block contains the address A; if (A) is 
stored at B, back-reference for the block must be changed to B. 
STEX offers many advantages for data storage control, but 
programs may also be loaded into the STEX domain with a few re- 
strictions. Since pathfinder settings are absolute and return is 
not made through codewords, programs should not be moved in a memory 
reorganization which STEX may have to perform. This possibility is 
eliminated if programs are loaded before any space is taken for 
data that may ever be inactivated. This rule should always be 
followed. 
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Use of STEX 



Once activated, STEX may be used directly by the coder with entry 
parameters 

(Bl) = codeword address of block on which STEX is to operate, 

(B2) = length of block. 
STEX first tests the word addressed by (Bl) . if this codeword is 
not null, the storage addressed through this codeword to all sub- 
levels is inactivated by STEX and all codewords are made null. If 
the codeword is null, no inactivation occurs. Then (B2) is tested. 
If (B2) jt 0, a block of storage of length (B2) is activated with back- 
reference to the address (Bl) , the codeword at (Bl) remains null. 

If the old codeword at (Bl) had no a-bit and if sufficient in- 
active storage is available in the high order locations adjacent to 
the old first word address then the new FWA will be the same as the 
old. Note that in the case of a new array of size less than or 
equal to the old array addressed through the appropriate codeword 
address, the user is assured that the freed space will be reused. 
In any case (Bl) is set to the FWA of the block activated. 

To take N locations to be addressed through codeword C, set 
(Bl) = c, (B2) = N and enter STEX. All space formerly occupied by 
array C will be inactivated and all associated codewords cleared. 
Exit will be made with (Bl) = FWA of a new block to be addressed 
through C and (B2) unchanged. The back -reference for the new block 
is supplied by STEX. If the inactive area is not sufficiently large 
to meet a request for space, exit is made with (Bl) = 0. 

To simply inactivate memory addressed through C, enter STEX 
with (Bl) = c and (B2) = 0. 
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Freeing a block is accomplished by inserting an inactive header 
in place of the back-reference word. Activating a block is accomplish- 
ed by obtaining space from the inactive block addressed by 100. If 
the address portion of 100 is null, then a reorganization will occur 
before activation. In this case all active memory is written to 
the low address end of the STEX domain, leaving one inactive block 
at the high address end. Space xs then obtained from this new 
(and only) inactive block. Reorganization will also occur if the 
block addressed by 100 is not large enough to accommodate the request 
for storage . 

If reorganization occurs and SL14 is off, the message 
REORGANIZATION is printed. If (Bl) = on entry to STEX, reorganiza- 
tion is performed and no space is allocated. A reorganization may 
also be forced by the control word 

00000 3130 0000 00135 

When STEX is used directly, the coder must generate his own 
codewords. The alternative of taking space with a "read" control 
word provides generation of codewords for the coder. 
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• Deactivation of STEX 

The SPIREL Storage Exchange algorithm STEX may be deactivated 
by the control word 

00000 3160 0000 00135 
If STEX is not active, this control word has no effect. If STEX is 
active, the following procedure is carried out: 

—The STEX domain is reorganized so that all inactive space is 
collected in a single block at the high end of the domain. 
— The TAKE algorithm is reinstated. 

— STORAG is set so that linear consumption will commence from 
the beginning of currently inactive storage, and FIRSTEX is 
cleared to indicate that there is no STEX domain established. 

Two points should be carefully noted: 
— Deactivation of STEX involves reorganization, so absolute 
addresses in the STEX domain may become meaningless as a re- 
sult of this operation. In particular, a program in the STEX 
domain should not ask for deactivation of STEX. 

— Items in the STEX domain at the time of deactivation will not 
be in the domain if STEX is subsequently reactivated. Each 
activation creates a new empty domain beyond all storage in use. 
It is difficult to imagine an application of STEX deactivation 
while a system is running. But a very useful application is in 
maintenance of a system of programs. A collection of system items 
may be loaded with STEX active and kept on magnetic tape as a 
master. For running, STEX may be deactivated prior to loading 
further. But items may be deleted, added, and changed in the 
master without any wasted space. 
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* Vectors, Print Matrix, B6-List 

Any component which is of use to the individual programmer is 
denoted by A in the margin next to its name. 

A *112, B6-List, LISTB6 

Length: 200 (octal) 

Function: This block is not B-modified. The area is used 
for working push-down storage, called the B6-list„ Index regis- 
ter B6 is initially set to point to the first word in the block. 
The B6 setting is maintained dynamically as a pointer to the 
next word in the block which may be used for push-down storage, 
*113 , Symbol Table , ST 

Length: 400 (octal) 

Function: This is a standard Bl-modified vector. Each 
entry contains the name and descriptive parameter for an item in 
the total system being run, an item which is identified symboli- 
cally rather than by its address or codeword address. The paral- 
lel entry in the Value Table, *122 , contains the item or code- 
word corresponding to the item name in the Symbol Table. The 
index of the last active entry in the Symbol Table is dynami- 
cally maintained at location 117. 
A *116, Print Matrix, PM 



Length: 200 (octal) 

Function: This block is not B-modified. The address of 
the first word of *116 is used as the address field in all SPIREL 
print orders, except in octal tracing. The print matrix is al- 
ways cleared immediately after S PIREL-con tro lied printing. 
*122, Value Table, VT 

Length: 400 (octal) 

Function: This is a standard Bl-modified vector. Each 
entry contains the value of or the codeword for an item in the 
total system being run, an item which is identified symbolically 
rather than by address or codeword address. The parallel entry 
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in the Symbol Table, *1 13 , contains the name and descriptive 
parameter for the item. The index of the last active entry in 
the Value Table is dynamically maintained at location 117. 
*125 , Base Address Vector, ADDR 

Length : 6 

Function: This block is not B-modified. It is used by 
SPIREL to dynamically maintain a record of all levels through 
which the base address has been set down and to compute effec- 
tive addresses from those specified in control words. 
*174, Text Vector, TEXT 

Length: 14 (octal) 

Function: This is a standard Bl-modified vector. It 
contains the current text supplied by *171, SAMPLE, which 
*173, CONSOLE operates on. The text is in the form of 
printer hexads . 
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Since programs *135(STEX) , *136(SAVE), and *137(UNSAVE) 
are necessary components of the SPIREL system, they are not included 
in the lists of supporting routines. 
*13, Trace, TRACE 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: The SPIREL trace program receives control through 
hardware trapping due to tag 3 on instructions, both before and 
after execution of the instruction. Information for each line of 
trace output is derived, formatted, and printed by this program. 

Registers Not Preserved: P2,S 

Supporting Routines: ARITH(*14), SETPM(*127) , PM(*116) 
for decimal option only 
*14, Arithmetic Error Monitor, ARITH 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program receives control through hardware 
trapping due to exponent overflow, mantissa overflow, or im- 
proper division. The type and source of error are printed. 

Registers Not Preserved: P2,S 

Supporting Routines: SETPM(*127) , PFTR(*147) 
*2Q, Check Block Bounds, CHECK 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program receives control through hardware 
trapping due to tag 1 on codewords as they are used in indirectly 
addressing. The values of indices on each level of indirect 
addressing are checked for being legal. If an error is detected, 
the source of the error, the array addressed, and index values 
are printed. 

Registers Not Preserved: P2,S 

Supporting Routines: TRACE(*13), SETPM(*127) , PFTR(*147) 
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*110, Print Control Word, HDPR 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system for 
online control word monitoring when SL14 is off. 

Supporting Routines: SETPM(*127) 
*111, Process Matrix, MATRX 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the recursive applica- 
tion of SPIREL as explained elsewhere. 

Supporting Routines: all SPIREL components, but only those 
necessary to perform the specified operation on any particular 
utilization; see section on SPIREL Component Linkages. 
*120, Diagnostic Dump, DIADMP 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system when 
control is passed to location 00027 (octal) . The diagnostic 
dump formats and prints the contents of the fast registers as 
explained in the section on Use of SPIREL. 
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*126, Execute Control Word , XCWD 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is the nucleus of the SPIREL 
system. It interprets control words and may use other system 
programs to carry out specified operations. External communi- 
cation to XCWD from paper tape and from the console is provided 
within the system and is explained elsewhere. For internal 
communication, control should be passed to the second word of 
*126 if the SPIREL operation specified is to be performed on a 
named item; otherwise control is given to the first word of 
*12 6. 

Input: (T7)=SPIREL control word to be executed. 

(R)=5 left-adjusted printer hexads (with '25' 
fill if necessary) for name of item to be operated on if control 
is given to *126 at the second word; in this case F in the con- 
trol word in T7 is empty. 

Registers Not Preserved: none (and SPIREL cannot operate on 
fas t regis ters) 

Supporting Routines: all SPIREL components, but only those 
necessary to perform specified the operation on any particular 
utilization; see section on SPIREL Component Linkages. 
*127 , Set Up Print Matrix, SETPM 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program will format a single word into the 
print matrix for printing at a specified position on a line if 
appropriately instructed. It will print the contents of the 
print matrix and clear the print matrix if appropriately in- 
structed. Common usage of SETPM for the printing of a single 
line consists of an entry for each word of information to be 
printed and an entry to have the collection printed and the 
print matrix cleared. Thus, SETPM provides a facility for com- 
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position and output of lines on the printer. 

Input: (T7) = information to be set up in print matrix, 

if any 
(Bl)=parameter which controls operation of SETPM 
(B3)=print position, 1-108 (decimal) at which 
field set-up should begin, if relevant 

(print position < is permitted, in which case nothing set up 
to the left of position 1 is printed) 



Operation: on the basis of (Bl) on entry: 
f 
(B1)<0, octal format of last 5 triads of (T7) 
at print position (B3), and increment (B3) b 



entry (B3)~, exit (B3) 




1-5 octa 1 digits , 

filled with leading blanks 

(B1)=0, octal format of (T7) in 18-position 

,IZ> u at , P J int P° sition (B3), and increment 
(B3) by 18 

entry (B3)-, exit (B3) 

oooooooooooooooooo* 

— v «• 

1-18 octal digits , 

filled with leading blanks 

(Bl)=l, hexad format of (T7) in 9-position field 
at print position (B3), and increment (B3) by 9 
entry (B3)-j exit (B3) 

hhhhhhhhh 
- — v ' 
9 hexads 

(B ,llf> print and clear PM , (B3) set to one and 
(.1/; meaningless 

(Bl)=3, general long decimal format of (T7) in 
18-position field at print position (B3) and 
increment (B3) by 18 
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floating point 
entry (B3) 



sign of number _ 
blank if positive 



I exit (B3) 

(-),d.ddddddddddde±dd* 

v < - ^ 

12 decimal / 
digits / 



exponent , 

2 decimal digits 



sign of exponent 



fixed point - 
entry (B3) 



* 



exit (B3) 



\ 



2-16 
b lanks 



AA(-)ddddddddddddddd 
v _, ^ 

\ 1-15 decimal digits 



sign of number, 
precedes leading digit 
blank if positive 

iB l )= rtu Sh ° r1 : decimal in teg e r format of mantissa 
°tU> 7) ^ n . 6 -P° s ition field at print position 
QtJj; , and increment (B3) by 6 



entry (B3) 



1 | 

(-)ddddd T 



exit (B3) 



1-5 decimal digits 

filled with leading blanks 

sign of number, 

precedes leading digit, 

blank if positive 

(Bl)=5, general short decimal format of (T7) in 
12-position field at print position (B3) and 
increment (B3) by 12 



floating point 
entry (B3) 



I exit (B3) 
(-)d.ddddd*±dd* 



6 decimal 
digits 

sign of number , 
blank if positive 



exponent , 

2 decimal digits 



sign of exponent 



I 
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fixed point -- 

entry (B3), exit (B3) 

(-)ddddddddddd'' 

v v - 

1-11 decimal digits, 
filled with leading blanks 

sign of number, 
precedes leading digit, 
blank if positive 
f 
(Bl)=6, octal instruction format of (T7) at print 
position (B3), and increment (B3) by 22 

entry (B3)-j exit (B3)j 

go ooooo Q o oooo ooooo 

18 octal digits 
with 4 blanks 

(Bl)=10 (octal), format of ( T7 ) on basis of (B2) at 
print position (B3) : 

(B2) < as for (Bl) < 0, short octal but with 

leading zeroes printed (no leading blanks) 

(B2) =0 as for (Bl) = 0, long octal but with 

leading zeroes printed (no leading blanks) 

(B2) =1 as for (Bl) = 1, hexad but with leading 

zeroes deleted (filled with leading blanks) 

print and clear PM after set-up if SETPM entered at second word. 



Registers Not Preserved: T7 

Supporting Routines: BINDC(*155) when decimal formatting 
is used . 

*130, Find Symbolic Name, SMNAM 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system for 
operations which are performed on items with symbolic names. 
Supporting Routines: TLU(*176) 
A *13 1. Print Date and Time, DATIME 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program reads the digital clock through 
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*132 (CLOCK), sets up the 14-character date and time in the 
print matrix, and prints the contents of the print matrix if 
requested to do so. It is used by XCWD to perform "obtain date 
and time" operations; it may also be used directly. 

Input: T7=00000 OOpO rrrr 00000, 

where p=0 causes set-up only 

p=l causes set-up, print, and clear 

r specifies the print position of the date 

r=0 causes set-up for 8 1/2 x 11" pages 

(first character in print position 4 8) 
Registers Not Preserved: T7 

Supporting Routines: CL0CK(*132), SETPM(*127) 
*132, Decode Clock, CLOCK 

Length: See SYSTEM DUPLICATOR, P. 4. 
Function: This program interrogates the digital clock and 
calendar in the machine and translates the coded time and date 
into printer hexads. The time is based on a 24-hour clock. 
CLOCK is used by DATIME ( *13 1) . 
Inpu t : none 

Output: Printer hexads in T5 , T6. For example, if CLOCK 
were executed at 9:45 pm on May 17, 1964, the CLOCK output would 
be : 

T5=05/17/64_ 

I T6=21.45 

where __ denotes "space". 
I Registers Not Preserved: B2,T4,T5,T6 

Supporting Routines: none 
*133, Punch Control Word, PCNTRL 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system for 
any punch operation executed with z even. 
Supporting Routines: none 
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*135, Storage Exchange, STEX 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program performs storage allocation as 
explained in detail in the section on Storage Control. 

Input: (Bl)=codeword address of array or block which 
is to be freed or for which space is to be allocated; if 
reorganization is desired. 

(B2)=length of block to be allocated; to 
only free space. 

Output: (Bl)=address of first word of block allocated; 
if allocation requested and insufficient space available; 
same as entry if no allocation is requested. 

(B2) same as on entry. 
Registers Not Preserved: none 
Supporting Routines: SETPM(*127) 
*136, Save Fast Registers, SAVE 

Length: See SYSTEM DUPLICATOR, P. 4. 
Function: This program uses 12 (octal) words on the 
B6-list for storage of all fast registers and a word denoting 
the registers to be saved. 

Input: (R) , bits 46-54, to specify registers to be saved: 
45 46 54 



A 



T4 



T5 



T6 



Bl 



B2 



B3 



B4 



B5 



PF 



not meaningful to SAVE 
The registers are stored on the B6-list in the order shown from 
right to left (i.e., PF saved first), and then (R) is itself 
stored on the B6-list. Notice that (R)=-Z on entry causes all 
nine registers to be saved. 

Use: Control should be passed to SAVE by a TRA (not 
a TSR) instruction which may be traced. 

Registers Not Preserved: none 

Supporting Routines : none 
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*13 7 , Unsave Fast Registers, UNSAVE 

Length: See SYSETM DUPLICATOR, P. 4. 

Function: This program complements SAVE. It obtains from 
the B6-list the (R) stored by the complementary execution of 
SAVE, restores all fast registers designated to be saved, and 
decrements B6 by 12(octal). The T-flags are cleared by UNSAVE. 

Use: Control should be passed to UNSAVE by a TRA (not a 
TSR) instruction. UNSAVE returns via (P2) on entry, and the 
ins true tion 

TRA *13 7 
may be traced. 

Registers Not Preserved: none 

Supporting Routines : none 
*140 , Insert or Delete Space, DELETE 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system for 
the operation of inserting or deleting words in blocks. 

Supporting Routines: TAKE or STEX(*135) for insert 
*141, Change Initial Index, CHINDX 

Length: See SYSTEM DUPLICATOR P. 4. 

Function: This program is used in the SPIREL system for 
the operations of changing the initial index of a block and load- 
ing cross reference words of programs. 

Supporting Routines: TLU(*176) for programs with cross 
references 
*142, Tagset, TAGSET 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system for the 
operation of tag setting. 

Supporting Routines: none 
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*143, Convert from decimal, CNVRT 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used to convert from a general 
decimally formatted number to binary. 

Input: T6, T7 contain printer hexads representing decimal 
number. R = number of hexads. Hexads are assumed 
to be left justified. 

Error Message: IMPROPERLY FORMATTED DECIMAL NUMBER 

Output: Binary number in T7. 

Resisters Not Preserved: X, T7. 

Supporting Routines: PWRTN(*152) 
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*144, Print, PRINT 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system 
for all print operations. 

Supporting Routines: SETPM (*127) 
*145, Punch, PUNCH 

Length': See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system 
for all punch operations. 

Supporting Routines: CLOCK (*132) ; PCNTRL(*133) for 
punching tapes with control words (i.e., with z even); 
PUNCHK(*157) for punching tapes in the hexad with tag and 
checksum format; BINDEC (*155) for punching decimal tapes. 
*146, Execute Control Word Sequence, XCWSO 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system 
for the operation of executing a control word sequence. 

Supporting Routines: all SPIREL components, but only 
those necessary to perform the operations specified by the 
control words in the sequence being executed; see section 
on SPIREL Component Linkages. 
*147, PF Trace, PFTR 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used to determine relative 
value of PF in a program with named or numbered codeword. 

Supporting Routines: none 
*150, Map STEX Domain, MAP 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program prints the structure of all 
arrays in the STEX domain, i.e., codewords. 

Supporting Routines: XCWD(*126) ,SETPM(*127) . 
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*151, Print Symbol and Value Tables, PRSYM 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system 
for the printing and punching of ST and VT in the special 
format described elsewhere. 

Supporting Routines: SETPM(*127), CNTXT(*175) 

i *152, Conversion of Powers of Ten, PWRTN 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system 
for reading of decimal numbers from paper tape. Given the 
floating point number P and the integer Q, this program 
computes the floating point number N=PxlO . 

Input: (T5)=signed floating point number P 

(B2)=integer Q in one's complement form, less 
than 75 (decimal) in absolute value 
Output: (T5)=PxlO Q , (PF)=0 if |Q|<75 

(T5)=0, (PF)=1 if |q|^75 
Registers Not Preserved: Bl, T4 
Supporting Routines: none 

\ *153 , Multiple Read Decimal, MRDDC 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system 
for the reading of data in decimal input formats from paper 
tape. It may be used directly to read decimal numbers, 
convert them as explained elsewhere, and store them. 

Input: (Bl)=address at which to begin storing the 
numbers read. 
(B2)=number of numbers to read 
Output: (Bl) same as on input 
(B2)=0 
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Error Message: IMPROPERLY FORMATTED DECIMAL NUMBER 
occurs if an improper decimal number is read, one which is 
out of the range permitted for the format used. 

Registers Not Preserved: none 

Supporting Routines: PWRTN(*152) 
*155, Binary to Decimal Conversion, BINDC 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system for 
conversion of a number from its internal binary representation 
to a decimal representation in printer hexads . It may be used 
directly for the same purpose. 

Input: (T4) = number to be converted, fixed point integer 
if exponent empty, floating point otherwise. 

Output: (T4) , (T5) = number in decimal printer hexad form, 
18 hexads: 

floating point 

+d . ddddddddddde+dd 

12 decimal exponent, 

digits 2 decimal digits 
fixed point integer 

. "• . +dd"-dd 

w » __4 



2-16 1-15 decimal 
blanks digits 

Registers Not Preserved: T6 ,T7 ,B1,B2 ,B3 

Supporting Routines: none 
*156, Read with Checksum, RDCHK 

Length: 5 7 (octal) 

Function: This program is used in the SPIREL system for 
reading tapes in the hexad with tag and checksum format or 
high density hexad with tag, parity and checksum format ex- 
plained in the section on Use of SPIREL. It may be used for 
the same purpose by an individual. 
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Input: (Bl) = address at which to store first word read. 

(B2) = number of words to read. 
Error Message: CHECKSUM ERROR ON ABSOLUTE TAPE 
occurs if the checksum computed while reading does not agree 
with that read from paper tape . 

Registers Not Preserved: T4 ,T5,T6 ,T7 ,82,53,84 ,B5 
( (B2)=0 on exit) 

Supporting Routines: none 

Note: RDCHK determines the hexad format by the value of 
the spill character punched by PUNCHK (*157) . A 25 is for normal 
hexads and a 26 is for high density hexads . 
A *157, Punch with Checksum, PUNCHK 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system for 
punching tapes in the hexad with tag and checksum format at the 
normal entry or high density hexad, with parity, tag, and check- 
sum format at the second instruction. The "spill character" 
(one hexad) that precedes a checksummed sequence is also 
provided by this program. It may be used for the same purpose 
by an individual. See the section on Use of SPIREL. 

Input: (Bl) = address of first word to be punched. 
(B2) = number of words to be punched. 

Registers Not Preserved: T4 ,T5 ,T6 ,T7 ,B2 ,83,84 ,85 
( (62) =0 on exit) 

Supporting Routines: none 
A *170, Plot Character on Scope, PLOT 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This routine plots one character on the display 
scope. 

Input: (62) = character as hexad in printer code. 

(65) = position, (H (B5) <216 10 , for maximum of eight 
lines, 2 7 characters per line. 
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Output: (B5) incremented by 1 . 

Registers Not Preserved: B2 ,T4 ,T5,T6 ,T7 

Supporting Routines: none 
*171, Sample Typewriter for Console Input, SAMPLE 

Length: See SYSTEM DUPLICATOR, P. 4. • 

Function: This routine takes input from the console 
typewriter, maintains the input text on the scope and in memory, 
and exits when control input is received. 

Output: return to PF if 'carriage return' character 
received, otherwise to PF+1 with (B1)=0 for 'halt', typed 'H' 

1 for 'fetch' , 'F' or 

2 for 'cont', 'C ,index ' 
Every command is displayed on the scope and printed before 
exiting. When SAMPLE is ready to receive new input from the 
console typewriter, the message *PAUSE* appears on the scope. 

Registers Not Preserved: all 

Supporting Routines: SETPM(*127) , PLOT(*170) 
*172, Error Printer, ERPR 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program prints error messages for the 
SPIREL system programs. See USE OF SPIREL, P. 9, for list 
of messages and details. 

Registers Not Preserved: none 

Supporting Routines: SETPM(*127) , PFTR(*147) 
*173, Interpret Console Input, CONSOL 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This routine • interprets commands received 
through the console typewriter. It will pass control words to XCWD, 
communicate with the magnetic tape system, set registers, and 
allow the user to communicate with XCWD from paper tape or the 
typewriter. 

Input: (CC)=23 gives control to CONSOL, text to be in- 
terpreted is in vector TEXT(*174) . 

Output: One or more control words passed on to XCWD in T7 . 
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Registers Not Preserved: T7 

Supporting Routines: XCWD(*126, CNVRT(*143) / SAMPLE (*171) 
*175, Context Determination, CNTXT 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program determines all named programs with 
negative ST indices that are necessary for the support of all 
numbered programs and named programs with positive ST indices. 
Library routines may be loaded with negative indices to -0 
and ST entries bearing tag 1. Then all private routines are 
loaded. CNTXT will operate on the ST entries with negative 
indices, leaving tag 1 on those not necessary for support and 
clearing the tag on all those "in context". 

Supporting Routines: none 
*176, Table Look-Up, TLU 

Length: See SYSTEM DUPLICATOR, P. 4. 

Function: This program is used in the SPIREL system to 
determine the index of the Symbol Table entry for a name. If 
the name "looked for" does not appear on the Symbol Table, TLU 
adds it and increments the current last active index at location 
117 by one. 

Input: (T4) = left-adjusted 5 printer hexad representation 
of the name to be "looked for" on Symbol Table, *113; the rest 
of (T4) is irrelevant to TLU. Entry at CC+1 will cause the 
name looked for not to be placed on the Symbol Table if it 
was not found. 

Output: (Bl) = index of ST entry for the name "looked for". 
(PF) = 1 if the entry was added to the active 
portion of the Symbol Table; otherwise. 

Registers Not Preserved: Bl, PF 

Supporting Routines: none 



SPIREL March, 1968 



SYSTEM DUPLICATOR 
• Purpose of the Duplicator 

When a system of programs has been debugged and extensive 
production running is contemplated or when memory space becomes 
critical, it may be advantageous to produce a self-loading paper 
tape bearing necessary SPIREL components, library routines used, 
and the coder's private system elements. The system duplicator 
SPIDUP, program *10 , is designed for this purpose. This program 
is not itself a SPIREL component. SPIDUP has codeword address 
10 (octal) and this will not conflict with normal codeword loca- 
tions . 

If the amount of space allowed for the SPIREL system is known, 
one may determine if the desired SPIREL system can be accommodated. 
This is simply done by adding up the lengths of all programs and 
vectors needed plus 300 (octal) , the normal loading address of 
SPIREL. Since the system is being continually modified, the current 
lengths of all its components are listed on Page 4 of this section. 
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• Use of the Duplicator 

A dump tape is used to tell program *10 what system elements 



are to be punched. The dump tape consists of 8 series of dump words 
each preceded by a 'carriage return' punch and consisting of 18 
octal digits. The dump word forms are as follows: 

00000 010 0000 fffff f or fl11 „ f t-K ki , , 

- nrrr tor a11 of the block (program or vector) 

with codeword at F. 
nnnnn 0000 0000 fffff for N Words beginning afc machine ^^ ^ 

nnnnn 0120 rrrr fffff f or a control Word which win ^^ & ^^ 
of N zeros to be created with codeword at F and R in the dump 
word at the corresponding position in the codeword. if N in 
the dump word is empty, N and R will be obtained from the 
codeword at F at time of punching. 

nnnnn 1100 rrrr fffff f or N Words beginning afc the Rfch ^^ 
of the block with codeword at F. A "correct" control word 
is punched which is meaningful at later reading only if the 
block has been previously created. 

A null dump word (18 '0' punches preceded by a 'carriage return') 

terminates the list of system components to be punched. Hexads 

on the dump tape after the null dump word will be reproduced onto 

the tape punched. Except for blocks of zeros, all components are 

punched in the hexad with tag and checksum format. 

The complete system from which components are to be punched 

to produce a se If -loading system tape should be in the machine. 

STEX must notbe active. Then execution of program *10 results in 

the following steps: 

• A leader is punched. It contains the SPIREL loader and 
RDCHK/ program *15 6 . 

• The programmed stop 

Z HTR CC 

occurs, and the dump tape should be readied in the 
reader . 

CONTINUEing causes the dump tape to be read and the 
specified system components to be punched, until the 
null dump word is read. 
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The SPIREL system tail is punched. 

Any information on the dump tape beyond the null dump 

word is duplicated, hexad for hexad. 
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A complete SPIREL system is produced by use of a dump tape as 
follows: 



dump words 



components and length (octal) 



00001 


0000 


0000 


00102 


t 


LAS TEX 






00000 


0120 


0000 


00112 


t 


LISTB6 


200 




00000 


0120 


0000 


00113 




ST 


400 




00000 


0120 


0000 


00116 


t 


PM 


200 




00000 


0120 


0000 


00122 




VT 


400 




00000 


0120 


0000 


00174 


t 


TEXT 


14 




00000 


0100 


0000 


00013 




TRACE 


335 




00000 


0100 


0000 


00014 




ARITH 


125 




00000 


0100 


0000 


00020 




CHECK 


263 




00000 


0100 


0000 


00110 




HDPR 


106 




00000 


0100 


0000 


00111 




MATRX 


213 




00000 


0100 


0000 


00120 




DIADMP 


130 




00000 


0100 


0000 


00125 


t 


ADDR 


6 




00000 


0100 


0000 


00126 


f 


XCWD 


433 




00000 


0100 


0000 


00127 


t 


SETPM 


155 




00000 


0100 


0000 


00130 




SMNAM 


57 




00000 


0100 


0000 


00131 




DAT I ME 


14 




00000 


0100 


0000 


00132 




CLOCK 


55 




00000 


0100 


0000 


00133 




PCNTRL 


14 




00000 


0100 


0000 


00135 


t 


STEX 


364 




00000 


0100 


0000 


00136 


t 


SAVE 


7 




00000 


0100 


0000 


00137 


t 


UN SAVE 


36 




00000 


0100 


0000 


00140 




DELETE 


277 




00000 


0100 


0000 


00141 




CHINDX 


52 




00000 


0100 


0000 


00142 




TAGSET 


15 




00000 


0100 


0000 


00143 




CNVRT 


53 




00000 


0100 


0000 


00144 




PRINT 


113 




00000 


0100 


0000 


00145 




PUNCH 


160 




00000 


0100 


0000 


00146 




XCWSQ 


27 




00000 


0100 


0000 


00147 




PFTR 


46 




00000 


0100 


0000 


00150 




MAP 


141 




00000 


0100 


0000 


00151 




PRSYM 


152 




00000 


0100 


0000 


00152 




PWRTN 


41 




00000 


0100 


0000 


00153 




MRDDC 


154 




00000 


0100 


0000 


00155 




BINDC 


103 




00000 


0100 


0000 


00157 




PUNCHK 


56 




00000 


0100 


0000 


00170 


+ 


PLOT 


141 




00000 


0100 


0000 


00171 


f 


SAMPLE 


203 




00000 


0100 


0000 


00172 




ERPR 


225 




00000 


0100 


0000 


00173 


t 


CONSOL 


1035 




00000 


0100 


0000 


00175 




CNTXT 


54 




00000 


0100 


0000 


00176 




TLU 


43 




00000 


0000 


0000 


00000 




null word to end 


dump 


77777 


1160 


0000 


00172 




correct 


index of 


ERPR 


77776 


1160 


0000 


00173 




correct 


index of 


CONSOL 



tcomponents which must be included in minimal SPIREL. 
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°The dump word for LASTEX may be omitted; the end of allocatable 
memory will then be set to E-377 (where E is the last word in memory) 
to exclude only the magnetic tape system programs. A small setting 
will provide private absolute storage if such is desired. 

For determination of a sufficient set of SPIREL components to satisfy 
the requirements of a private system, reference should be made to the 
diagram of SPIREL component linkages. If HDPR, program *110, is to 
be eliminated, all control words must be executed with SL14 on unless 
location 110 routes control immediately to the program using *110. 
Set 

(110) : 00000 0000 0001 00000 
before execution of *10 and include the dump word 

00001 0000 0000 00110 
in the dump tape. 

To alter the initial SPIREL loading address (normally octal 300) 
or the message printed upon completion of paper tape reading, 
refer to the symbolic listing of SPIDUP in the SPIREL reference 
notebook . 
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• Purpose 

Backing storage can be used as an extension of effective memory 
space or as a fast alternative to paper tape for input and output. 
For such applications the SPIREL-compatible backing storage system 
(SBSS) is provided. Data created and processed by SPIREL in memory 
may be output onto magnetic tape by SBSS; data input from magnetic 
tape by SBSS may be processed by SPIREL. 

The SPIREL backing storage system uses codeword addresses 
160-167 and 177. It may be loaded with any SPIREL. STEX must be 
active for use of SBSS. 
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• Use 

The SPIREL backing storage system, SBSS, provides a data 
transmission link between memory and a device . For transmission to 
occur the logical device (numbered 0-7) must be attached to a tape 
unit (numbered 0-3) . A unit must be detached before it is manipulated 
other than under SBSS control, by programs or manually. 

The logical unit of information on a device is a file . While 
a unit is in use for output an output file is open on the device; while 
it is in use for input an input file is open. Physically, a file con- 
sists of a sequence of records of uniform length. For an open file 
there exists a buffer area in memory which contains the last record 
read or the accumulation for the next record to be written. An out- 
put file must be closed to assure that all data output to the file is 
actually out of the buffer. 

Output files are written sequentially on a device and are number- 
ed 1 to 252 1Q ; files may not be overwritten. A device may be position - 
ed at any file. For input, the file at which the device is positioned 
is the one read. 

SBSS maintains status and control information about each device 
in a d evice status block . 

There are three levels of SBSS usage: 

1) On the array level the user may read and write SPIREL arrays by 

simply specifying the codeword address and the device number to 
the program ARRAY ( *166 ) . All buffering is handled automatically 
on input and output. Storage allocation for arrays is provided 
on input . 

2) On the buffered level the user may read and write any memory area 

by specifying the first word address, the number of words, and 
the device number to the programs GET(*160) for input and 
PUT(*161) for output. All buffering is handled automatically. 
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3) On the direct level the user may read and write buffer loads 

(records) by specifying the device number to the programs 

READ(*162) for input and WRITE (*163) for output. 
On all levels, the program CONTRL(*167) is used for logical (non- 
transmission) operations: 

to attached and detached devices; 

to open and close input and output files; 

to specify buffer length for a device; 

to position a device at a specified file, by rewinding, by 
backspacing one file or record, or near the end of in- 
formation on the device; 

to obtain status information about a device; 

to set control options for a device; 

to reposition after restart 

Various comments on the use of SBSS are appropriate. Exercise 
of the system will no doubt suggest more. 

• Files need not be explicitly open by the user. They will be 
opened when data transmission occurs. 

• Output files should be closed as soon as possible after they 
are completed. While an output file is open, there is constant 
danger of transport misbehavior causing a file to become unreadable. 

• When attaching a device to a tape unit, the exact number of 
files on the tape must be given or all sorts of bad things can 
happen. 

• Never have more than one device attached to the same unit. It 
leads to immense confusion and almost certain file destruction. 
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• Tape Format 

Marker allocation on an SBSS written magnetic tape is as 
follows: 

marker — unused 

markers 1-374 g — file markers so that 252,,, files are allowed 

marker 375 -- end-of-information marker 

marker 376 — record marker 

marker 377 — space marker 

A new reel of tape containing no files, but ready to be written, 
bears only a leader and an end-of-information marker. 



space markers 
32 M377 



end marker 
M375 




tape position to write 

A reel containing k files bears k file markers and an 
end-of-information marker. 



32 

M377 



file marker 
Ml 



data of 
file 1 



file marker 
M2 



tape position to read file 2 



file marker 
Mk 



data of 
file k 



end marker 
M375 




tape position to write 
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The k file on a reel begins with a file marker and contains 
any number of record markers and records, all of the same length. 




file marker 
Mk 



record marker 
M376 



data of 

first 
record 



record marker 
M376 



record marker 
M376 



data of 

last 
record 



file marker Mk+1 
or end marker M37 5 




th th 

The i record in the k fxle on a reel begins with a record 

marker and contains n words of which the first two describe the 

record. 



record marker 
M376 



word 1 



word 2 



words 3 to n 



c , ' £ , ' containing data 

of record. of record, _ ,^ 
| I of record 

I I 




Word 1 contains 

n(15 bits) , length of the record; 

k(9 bits), file number; 

number of data words used (15 bits) , null if this is not the 
last record in file k so that n-2 words are used; 

i(15 bits), record sequence number. 
Word 2 contains a symmetric difference checksum for the record. 
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• Organization 
The SPIREL 
follows : 

160 GET 



161 



PUT 



162 READ 



163 WRITE 



164 BUFFER 



165 


STATUS 


166 


ARRAY 


167 


CONTRL 



177 



ERRT 



backing storage system, SBSS, uses codewords as 



read (B2) words to memory starting at address 
(Bl) from device (B3) 

write (B2) words from memory starting at address 
(Bl) to device (B3) 

read one record from device (B3) into buffer 
for that device 

write buffer for device (B3) as one record on 
that device 

buffer matrix with row i as the buffer for device 
i (i=0,l, . . . ,7) and row -1 as the check buffer 
for all open output files needing one 

device status matrix with row i containing status 
for device i (i=0 ,1 , . . . ,7) 

read or write array with codeword address (Bl) , 
relative to SPIREL address base setting, to 
or from device (B3) 

for device (B3) , perform non-transmission opera- 
tion specified by (Bl) , with parameters 
specified in B2 and B4 

tape error routine 
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The levels of SBSS usage and interconnection of components is 
shown in the following diagram. 



input ; 



array 
level 



buffered level 



direct level 




STATUS 



BUFFER 



output: array buffered level 
level 



direct level 



non-transmission 
for all levels 
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• SBSS Programs 

All programs preserve registers except T7 which are not used 
for input or output. 

♦160/ Input from Device to Memory, GET 

Length 63 (octal) 

Function: This routine transmits data from a device buffer 
to the user's memory locations, opening an input file if necessary 
and causing the buffer to be filled from the device as required. 

Input: (Bl)=address at which to begin storing the data read 
(B2) =number of words to read 
(B3)=device number 

Special entry: at second order to simply skip over data; 
transmission suppressed and input (Bl) irrelevent. 

Output: (T7)=number of words transmitted (or skipped) 

Return: to PF+1 normally 

to PF if end-of-file encountered before specified 
number of words transmitted (or skipped) or input (B2)=0 and end- 
of-file encountered 

Errors: none 

Supporting Routines: READ(*162), CONTRL (*167) 

*161, Output from Memory to Device, PUT 

Length: 42 (octal) 

Function: This routine transmits data from the user's memory 
locations to a device buffer, opening an output file on the device 
if necessary and causing the buffer to be emptied to the device as 
required. 
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Input: (Bl)=address at which to begin obtaining data 

to write 

(B2)=number of words to write 

(B3)=device number 
Return: to PF 
Errors : none 
Supporting Routines: WRITE(*163), CONTRL(*167) 

*162, Input from Device to Buffer, READ 

Length: 77 (octal) 

Function; This routine reads the next record of the current 
input file on a device into the buffer for that device, opening 
an input file if necessary. 

Input: (B3)=device number 

Special entry: at second order to obtain first word of next 
record as output in T7 but remain positioned at same next record. 

Return: to PF if no errors 

Errors: 01 record sequence error detected 

02 cannot read record in 8 attempts 

Supporting Routines: CONTRL(*167) , ERRT(*177) 

*163, Output from Buffer to device, WRITE 

Length: 103 (octal) 

Function: This routine writes the buffer for a device into 
the current output file for that device and checks what is written. 
An output file must be open on the device. 

Input: (B3)=device number 

Return: to PF if no errors 
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Errors: 03 no open output file 

04 UME in memory 

05 cannot write record in 8 attempts 
Supporting Routines: ERRT(*177) 



*16 6, Transmit Array to or from Device, ARRAY 



Length : 
Function: 

between memory 

necessary. 

Write 

Entry: 
Input : 



Return: 
Errors : 

Entries : 

Input : 



Read 



Return : 



Errors : 



204 (octal) 

This routine transmits a SPIREL array, with tagw, 
and a device, opening an input or output file as 



at first order 

(Bl) =codeword address of array to be written, 
relative to SPIREL address base setting 
(B3)=device number 
to PF 
none 

at second order to read an array 
at third order to skip an array 

(Bl)=+0 to read array with same codeword address 
(or name) as when written 

=codeword address (=(=+0) at which to read array, 
relative to SPIREL address base setting 
to PF+1 normally 

to PF if there is no data to be read from the file 
upon entry 
06 end-of-file encountered before read (or skip) 

complete 
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Write and Read 

On Tape: 
primary codeword 



length 



initial 
index 



-• name in BCD 



zero if no name 



modifiers 



codeword 
address *~ 



zero if there is a name 



subsidiary codeword 



length 



initial 
index 



modifiers 



relative 
codeword ♦- 
address 



runs from 1 to length- 



Supporting Routines: XCWD(*126), GET(*160), PUT(*161), 
CNTRL(*167), ERRT(*177) 

*167, Control for Tape System, CONTRL 

Length: 430 (octal) 

Function: This routine performs non-transmission functions 
in the SPIREL backing storage system; file control, logical operations, 
and positioning. 

Input: (Bl) to specify operation 
(B3)=device number 
(B2) , (B4) may contain parameters 

Output: may be in T7 

Return: to PF if no error 

Operations: on the basis of (Bl)p on entry 
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(B1)=0, open input file 

If device (B3) is not attached to a unit, no operation 
is performed. 

Any open file is first closed 

If device (B3) is positioned at the end of information, 
an input file cannot be opened and error 07 occurs. 

If all is well, the next input file on device (B3) is 
opened and a buffer is created if necessary. If there is not 
memory space for the buffer, error 13 occurs. 

(Bl)=l, close input file 

If device (B3) is not attached to a unit or there is no 
input file open on the device, no operation is performed. 

Otherwise, the current input file on device (B3) is 
closed; the associated buffer is freed if the switch in the 
device status block dictates. 

(Bl)=2, open output file 

If device (B3) is not attached to a unit, no operation 
is performed. 

Any open file is first closed. 

If the tape is full (252.- files) , error 10 occurs. 

If the switch in the device status block indicates that 
the device is write-protected, error 11 occurs. 

If all is well, a new output file is opened on device (B3) 
and a buffer is created if necessary. If there is not memory 
space for the buffer, error 13 occurs. On exit (T7)=number of 
file opened. 
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(Bl)=3, close output file 

If device (B3) is not attached to a unit or there is no 
output file open on the device, no operation is performed. 

Otherwise, the buffer for device (B3) is emptied if 
necessary and the current output file is closed. The buffer 
is freed if the switch in the device status block dictates, 
and the check buffer may be freed also. On exit (T7)=number 
of file closed. 

(Bl)=4, attach device 

and (B4)=logical tape unit, 0-3 , 

(B2)=number of files on the tape, for a new output- tape 
If device (B3) is already attached to a unit, no operation 
is performed. 

If a non-existent unit is specified in B4, error 12 occurs. 
Otherwise, device (B3) is attached to unit (B4) . The tape 
is rewound and a leader is written if input (B2)=0 (new tape). 

(Bl)=5, set buffer length 

and (B2)=length, number of words 

If a file is open on device (B3) , no operation is per- 
formed. Buffer length may be set only when no file is open, 
but a buffer is not created until it is needed for transmission. 

If no buffer is specified, devices 0-3 have buffer length 
400g, devices 4-7 have buffer length 1000 g . 
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(Bl)=6, detach device 

If device (B3) is not attached to a unit, no operation 

occurs. 

Any open file is first closed. 

Device (B3) is detached from its unit; the tape is re- 
wound, and the device is left positioned at file 1. 

(Bl)=7, rewind 

If device (B3) is not attached to a unit, no operation 

is performed. 

Any open file is first closed. 

If there are files on device (B3) , the tape is rewound 
and left positioned at file 1. 

(Bl)slO, backspace file 

If device (B3) is not attached to a unit, no operation 
is performed. 

Any open file is first closed. 

Then the tape is positioned at the beginning of a file. 

On exit 

(T7)=-l if tape was at beginning of file 1 and could not 
be backspaced 
=0 if tape was positioned within a file and was back- 
spaced to the beginning of that file, or was 
backspaced to the beginning of the preceding file. 
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(Bl)=ll, backspace record 
On exit 

(T7)=-l if device (B3) is not attached to a unit or no file 
is open on the device and no positioning is done 
=0 if tape was positioned at the beginning of a file 

and could not be backspaced within the file 
=1 if tape was backspaced one record in the current file 

(Bl)=12, position at file 
and (B2)=file number 
On exit 

(T7)=-l if device (B3) is not attached to a unit or a file 
is open on the device and no positioning is done 
=0 if tape is positioned at the beginning of file (B2) 
=1 if file (B2) does not exist on the device and no 
positioning is done 

(Bl)=13, position near end-of- information 
On exit 

(T7)=-l if device (B3) is not attached to a unit or a file 
is open on the device and no positioning is done 
=0 if the tape is positioned at the last file 

(Bl)=14, get field from device status block 

and (B2) 8 specifies the field, as explained in the section on 
device status : 

(B2)=l, LEFT (B2)=4, FILE NO. (B2)=7, FILES 

=2, NEXT =5, LAST =10, UNIT 

=3, LENGTH =6, REC NO. =11, SWITCH 

On exit, (T7)=field value for device (B3) , if (B2) is not 
meaningful. 
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(Bl)=15, set switches 

and (B4) specifies switches to turn off 
(B2) specifies switches to turn on 

Switches, as explained in the section on device status, 
for device (B3) are turned on for l's in (B4) , then off for 
l's in (B2) . System switches are immune from setting by this 
operation. 

(Bl)=16, re-position after restart 

If device (B3) is not attached to a unit, no operation 
is performed. 

Otherwise, the tape is rewound and then positioned as 
designated in the device status block for device (B3) . 

Errors: 7 cannot open input file 

10 cannot open output file 

11 attempt to output on protected device 

12 attempt to attach device to non-existent unit 

13 insufficient space for buffer 
Supporting Routines: STEX(*135) , READ(*162), WRITE(*163) 

ERRT(*177) 
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• Device Status and Control 

The device status matrix, STATUS (*1 65) , contains one device 
status block per row, row i for device i, i=0,l,...,7. B3 is the 
row modifier, and there is no column modifier. 

Each device status block is three words long and contains 
information about the device and its buffer: 



DEVICE STATUS BLOCK 



word 1 



word 2 



word 3 



LEFT 



LENGTH 



FILES 



I I I I I I 



FILE 
NO. 



LAST 



ERROR 



I I 1 I 
NEXT 



REC NO. 



SWITCH 



Word 1 describes buffer status: 

LEFT — number of words in the buffer yet to be obtained for 

input or supplied for output 
NEXT — relative location of the next word in the buffer to 
be obtained for input or supplied for output 
Word 2 duplicates the first word of a record on tape: 

LENGTH* — number of words in the buffer, and number of words 

in a record (data words +2) 
FILE NO. -- number of file at which currently positioned 
LAST — non-zero only for the last record of a file and then 

gives number of data words in the record 
REC NO. — number of the record at which currently positioned 

*If not specified through use of CONTRL(*167) , buffer length is 
400 g for devices 0-3, 1000 g for devices 4-7. 
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Word 3 contains control information: 

FILES — number of files currently on the tape 

UNIT — logical tape unit number to which the device is 

attached, if at all 
ERROR — codeword address for user's error routine — not 

used now 
SWITCH -- set of binary switches to describe status and 

prescribe user options — see below for details 

The twelve bits of SWITCH are shown in detail: 



word 3 of 
device status 
block 




User option switches — all off initially 

WRPT, write protect — if on, do not permit output to this unit 
RDCK, read check — if off, check output by read without store 

if on, check output by word-for-word com- 
parison in check buffer 
KPCK, keep check buffer — if on, do not free check buffer when 

output file is closed 
KPBF, keep data buffer — if on, do not free buffer for device 

when file is closed 
LNFT, length from tape — if off, use LENGTH in status block as 

buffer length for input 
if on, get buffer length from tape on 
input 
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System status switches — may not be set by user 
WRIT, write -- if on, output file open on device 
READ, read — if on, input file open on device 
ATCH, attach — if on, device is attached to unit 
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• Buffers 

The buffer matrix, BUFFER (* 164) , contains one device buffer 
per row, row i for device i, i=0,l,...,7. Row -1 is used as a 
check buffer for all devices requiring one. BUFFER is modified by 
B3=-l,0, . . . ,7 for rows and B5=l,... for columns. 

A device buffer is created, if necessary, when a file is opened 
on a device. It is freed when a file is closed, unless the device 
status block specifies to keep the buffer. 

The check buffer is created or lengthened, if necessary, when 
an output file is opened on a device for which read checking is 
specified in the device status block. The check buffer is freed 
when an output file is closed on a device for which the device status 
block specifies not to keep the check buffer and no other device is 
using it. 

A device buffer is just a copy of a record on tape. The 
first two words are for control; the first is the same as word 2 
of the device status block, the second the symmetric difference 
checksum. The remaining words contain user data. 



DEVICE BUFFER 



word 1 
word 2 



' LENGTH 



FILE 
NO. 



LAST 



REC NO. 



CHECKSUM 



data 
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• Errors 

SBSS errors occur when conditions arise due to physical tape 
problems or logical programming errors from which the system can- 
not recover. An error message is printed giving the error number, 
device, and information from the device status block including the 
unit and current tape position. Then a halt occurs with the error 
number and 'TAPE' in U. 



Error 


Program 


01 


162, RE AD 


02 


16 2, READ 


03 


16 3, WRITE 


04 


16 3, WRITE 


05 


163 , WRITE 


06 


16 6, ARRAY 


07 


167,CONTRL 


10 


167,CONTRL 


11 


167,CONTRL 


12 


167,CONTRL 


13 


167,CONTRL 



Condition 

record sequence numbers out of order - 
probably missed a marker 

tape cannot be read - tried to read 
record 8 times 

trying to write without output file 
open - can occur only on direct 
access level 

WMTE light came on while writing, 
signifying UME in memory 

tape cannot be written - tried writing 
twice in each of 8 spots 

end-of-file encountered while reading 
an array 

cannot open input file because 
positioned at end of information 

cannot open output file because 

maximum number (252) exist already 

cannot open output file because device 
is write-protected 

cannot attach device to non-existent 
unit 

insufficient space in memory for buffer 
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LIBRARY 
Purpose.?. . . 



Library Content 

Scalar Routines 
Complex Scalar Routines 
Matrix Routines 
Complex Matrix Routines 
Software Routines 
Debug Routines 
Cons tan ts 



Programmed Use of Library Routines 
Types of Routines 
Use in the Genie Language 
Use in Assembly Language 



Running. ......... 

Compression 
Diagnostic Procedures 



Library Routines 



System Maintenance 
Punching - 
Editing 
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PURPOSE 

The SPIREL System is composed of the SPIREL operating system 
plus a library. The library is a collection of named programs and 
constants which may be utilized by a user system loaded into SPIREL. 

The names of all library items are known to the Genie compiler. 
The user does not have to make any declarations about library items 
in a Genie program. 

The names of library items are not known to the assembly 
program. The user must use pseudo-orders to establish linkage to 
library items from API programs. 

Memory space for the full library is required while user programs 
are being loaded. But then the library may be compressed to just 
those programs required for support of the user programs, the decision 
about what is necessary being made automatically. Dynamically, memory 
space is required for only the essential library items. 
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LIBRARY CONTENT 



• Scalar Routines 

These programs are mathematical functions, taking a single 
floating point argument and giving a floating point result. De- 
tailed explanations are given in the Library Routines section. 

All programs are for implicit execution, as discussed in 
Programmed Use of Library Routines. 



NAME 
SQR f 



EXP 



LOG' 



LOG 10 



SIN 

t 
COS 

t 

TAN 
t 
COT 

ASIN 



ATAN 



SINH 



I COSH 



TANH 



ASINH 



ACOSH 



t 



DESCRIPTION 

square root 

argument ^ 0; if argument < 0, gives result = and 
prints error message 

exponentia 1 

|argument| < 170.0; if argument < -170.0, gives 
result = 0; if argument > 170.0, gives result for 
argument = 170.0 and prints error message 

natural logarithm 

argument > 0; if argument £ 0, gives result = argument 
and prints error message 

logarithm, base 10 

argument > 0; if argument £ 0, gives result = and 
prints error message 

sine 

cosine 

tangent 

cotangent 

arc sine 



> 1.0, 



|result| < tt/2, (argument | £ 1.0; if |argument 
gives result = and prints error message 

arc tangent 

| result | < n/2 

hyperbolic sine 

|argument| ^ 170.0; if |argument| > 170.0, gives 
result for |argument| = 170.0 and prints error message 

hyperbolic cosine 

|argument| <. 170.0; 
result for |argument 

hyperbolic tangent 
Jargument | £ 170.0; 
result 1=1.0 



if |argument| > 170.0, gives 
= 170.0 and prints error message 

if jargumentj > 170.0, gives 



arc hyperbolic sine 

arc hyperbolic cosine 

argument ;> 1.0; if argument < 1.0, gives result = 
and prints error message 
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LIBRARY CONTENT 

2 

NAME DESCRIPTION 

+ 
ATANH arc hyperbolic tangent 

|argumentj < 1.0; if |argument| 2: 1.0, gives 

result = and prints error message 

GAMMA gamma function 

-27.0 < argument < 55.0 and argument not a negative 
integer; if argument out of range or a negative 
integer, gives result = and prints error message 

LGAMMA log gamma 

argument £ 0; if argument < 0, gives result = and 
prints error message 



In the Genie language, if argument is complex, corresponding 
complex routine will be used. 
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LIBRARY CONTENT 
3 
• Complex Scalar Routines 

These programs are functions of a single complex argument, 
giving a real or complex result. Detailed explanations are given 
in the Library Routines section. 

All programs are for implicit execution, as discussed in 
Programmed Use of Library Routines. 



NAME 

t 
RE 

CARTN 



t 



POLAR 

MOD 

CONJ 1 " 

ITIMES 

CSQR 

CEXP 



CLOG 



CSIN 



CCOS 



CTAN 



CCOT 



DESCRIPTION 

real part of a complex number 

imaginary part of a complex number 

conversion of complex number from polar to Cartesian form 

conversion of complex number from Cartesian to polar form 

modulus of a complex number 

conjugate of a complex number 

i times a complex number 

complex square root 

complex exponentiation 

|real part of argument| s 170.0; if real part < -170.0, 

gives result = 0; if real part > 170.0, gives result 

for real part = 170.0 and prints error message 

complex log 

argument ^ 0; if argument = 0, gives result = and 
prints error message 

complex sine 

|imaginary part of argument| :£ 170.0; if [imaginary 
part| > 170.0, gives result for |imaginary part| = 170.0 
and prints error message 

complex cosine 

|imaginary part of argument) £ 170.0; if |imaginary 
partj > 170.0, gives result for |imaginary part| = 170.0 
and prints error message 

complex tangent 

(imaginary part of argument | £ 85.0; if | imaginary 
part] > 85.0, gives result for |imaginary part| = 85.0 
and prints error message; if argument near singularity, 
gives result = tangent of real part of argument and 
prints error message 

complex cotangent 

| imaginary part of argument j s 85.0; if |imaginary 
partj > 85.0, gives result for |imaginary part| = 85.0 
and prints error message 
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NAME 

CASN 
CATN 

CSNH 
CCSH 
CTNH 



CASNH 
CACSH 
CATNH 



LIBRARY CONTENT 
3.1 

DESCRIPTION 

complex arc sine 

complex arc tangent 

argument =|= ±i; if argument = ±i, gives result = and 
prints error message 

complex hyperbolic sine 

| real part of argument | < 170.0; if | real part| > 170.0, 
gives result for | real part| = 170.0 and prints error 
message 

complex hyperbolic cosine 

| real part of argument | < 170.0; if 
gives result for | real part| = 170.0 
message 

complex hyperbolic tangent 

| real part of argument | < 85.0; if | real part| > 85.0, 
gives result for | real part| = 85.0 and prints error 
message; if argument near singularity, gives result = 
tangent of real part and prints error message 

complex arc hyperbolic sine 

complex arc hyperbolic cosine 



real part| > 170.0, 
and prints error 



complex arc hyperbolic tangent 

argument =f ±1; if argument = ±1, gives result = 
prints error message 



and 



tin the Genie language, if argument is vector or matrix, corresponding 
complex matrix routine will be used. 
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LIBRARY CONTENT 
4 
• Matrix Routines 

These programs operate on standard vectors and matrices in the 
STEX domain. Detailed explanations are given in the Library Routines 
sec t ion . 

A matrix routine prints an error message if a non-scalar operand 
does not exist and then performs no operation. 

The EXECUTION column below gives the type of routine as explained 

in Programmed Use of Library Routines. 

NAME DESCRIPTION EXECUTION 

MCOPY copy of vector or matrix special 

MADD addition of two vectors or matrices special 

if dimensions not compatible, prints 
error mes sa ge 

MSUB subtraction of two vectors or matrices special 

if dimensions not compatible, prints 
error message 

MMPY multiplication of two vecotrs, two matrices, special 

or a vector and a matrix -- if dimensions 

not compatible, prints error message 

f 
INV inverse of matrix implicit 

if matrix contains more rows than columns 

or is singular, performs no operation and 

prints error message 

t 
TRAN transpose of matrix implicit 

SMMPY multiplication of scalar and vector or special 

matrix 

SMDIV division of vector or matrix by a scalar special 
if scalar = 0, performs no operation and 
prints error message 

MFLT floating point equivalent of integer matrix special 

MCMPL complex equivalent of real floating point special 
ma trix 

MINDEX change initial index and B-mods for a vector explicit 
or matrix 

MINSERT insert or delete elements of a vector or explicit 
rows or columns of a matrix 

MPATCH move part of one vector or matrix into explicit 

another vector or matrix 
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LIBRARY CONTENT 

5 

NAME DESCRIPTION EXECUTION 

MPOWER matrix to an integer power special 

if matrix not square and power ^ 0, prints 
error message and uses square portion; if 
matrix not square and power < 0, prints error 
message and performs no operation; if 
power < and matrix singular, performs no 
operation and prints error message 

DIAG diagona liza tion of a matrix, with eigen- explicit 
vectors if desired 

0RTH0G Gram-Schmidt or thonorma liza tion of the implicit 

rows of a matrix -- if rows not linearly 

independent, prints error message and 

performs no operation 

t 
SOLN solution of a system of linear equations implicit 

if dimensions not proper or solution 

not defined, prints error message and 

performs no operation 

•f 
DET determinant of a matrix implicit 

if matrix not square, gives result = 

and prints error message 

STNDV standard deviation of a vector implicit 

2 
CHISQ x for two vectors implicit 

if vectors not the same length, gives 

result = and prints error message 

2 
QCONF x confidence level between two vectors implicit 

if vectors not the same length, gives 

result = 1.0 and prints error message; 

if lengths < 2, gives result = and 

prints error message 

CRCOR vector c ross -corre la t ion or auto -cor re la tion implicit 
if length of result > sum of input 
lengths - 1 for c ross -corre la tion or 
> length of input for au to -corre la tion , 
prints error message and performs no 
opera tion 

CMCON construct complex vector or matrix special 

if parts do not have same dimensions 
prints error message and performs no 
operation 

FTRAN Fourier transform of a real vector implicit 

if arguments are not meaningful, prints 
error message and performs no operation 
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NAME 
ITRAN 



VREV 
CONVL 



LIBRARY CONTENT 
5 . 1 



DESCRIPTION 



inverse Fourier transform of a complex 

vector -- if arguments are not meaningful, 
prints error message and performs no 
operat ion 

order reversal of vector elements 

convolution of two vectors 



EXECUTION 
imp licit 



explicit 
implicit 



In the Genie language, if argument is complex, corresponding complex 
routine will be used. 
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LIBRARY CONTENT 
6 

• Complex Matrix Routines 

These programs operate on standard complex vectors and matrices 
in the STEX domain. Detailed explanations are given in the Library 
Routines section. 

A complex matrix routine prints an error message if a non- 
scalar operand does not exist and then performs no operation. 

The EXECUTION column below gives the type of routine as 
explained in Programmed Use of Library Routines. 

NAME DESCRIPTION EXECUTION 

CMCPY copy of a complex vector or matrix special 

CMADD addition of two complex vectors or special 

matrices -- if dimensions not com- 
patible, prints error message 

CMSUB subtraction of two complex vectors special 

or matrices -- if dimensions not 
compatible, prints error message 

CMMPY multiplication of two complex vectors, special 
two complex matrices, or a complex 
vector and a complex matrix -- if 
dimensions not compatible, prints 
error message 

CINV inverse of complex matrix implicit 

if matrix contains more rows than 
columns or is singular, performs no 
operation and prints error message 

CTRAN transpose of complex matrix implicit 

CDET determinant of complex matrix implicit 

if matrix not square, gives result = 
and prints error message 

CSOLN solution of a system of linear equations implicit 
with complex coefficients -- if dimensions 
not proper or solution not defined, prints 
error message and performs no operation 

CSMMP multiplication of a complex scalar and special 
a complex vector or matrix 

CSMDV division of a complex vector or matrix special 
by a complex scalar -- if scalar s= 0, 
performs no operation and prints error 
mes sa ge 



LIBRARY CONTENT 

7 

NAME DESCRIPTION EXECTUION 

MRE real part of a complex vector or matrix implicit 

MIM imaginary part of a complex vector or implicit 

ma t rix 

MCARTN conversion of a complex vector or matrix implicit 
from polar to Cartesian form 

MPOLAR conversion of a complex vector or matrix implicit 
from Cartesian to polar form 

MCONJ conjugate of a complex vector or matrix implicit 

MITIMES i times a complex vector or matrix implicit 
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LIBRARY CONTENT 

8 
• Software Routines 

These programs perform miscellaneous operations on data. De- 
tailed explanations are given in the Library Routines section. 

The EXECUTION column below gives the type of routine as explained 
in Programmed Use of Library Routines. 

NAME DESCRIPTION EXECUTION 

LENGTH length of a vector implicit 

CLENGTH length of a complex vector implicit 

ROW number of rows in a matrix implicit 

CROW number of rows in a complex matrix implicit 

t 
COL number of columns in a matrix implicit 

CCOL number of columns in a complex matrix implicit 

MAX index of maximum element in vector implicit 

MIN index of minimum element in vector implicit 

■f 
VSPACE dynamic creation of standard vector of explicit 

zeroes 

CVSPACE dynamic creation of a standard complex explicit 

vector of zeroes 
+ 
MSPACE' dynamic creation of standard matrix of explicit 

zeroes 

CMSPACE dynamic creation of a standard complex explicit 

matrix of zeroes 
f 
MTAKE dynamic creation of n -dimens iona 1 array explicit 

of zeroes 

CMTAKE dynamic creation of n -dimensiona 1 complex explicit 
array of zeroes 

FXEXP integer or floating point number to an special 

integer power -- if base = and 
exponent £ 0, gives result = and 
prints error message 

FLEXP floating point number to a floating point special 
power -- if base s 0, gives result = 
and prints error message 

EVEN test integer for being even implicit 

FIX integer nearest to floating point number . implicit 
if |argument| :> 16383.5, gives result = 
and prints error message 

FLOAT floating point equivalent of integer implicit 
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LIBRARY CONTENT 
9 

NAME DESCRIPTION EXECUTION 

RANDM floating point random number between 0.0 implicit 
and 1.0 

CADD addition of complex scalars special 

CSUB subtraction of complex scalars special 

CMPY multiplication of complex scalars special 

CDIV division of complex scalars special 

CXEXP complex scalar to an integer power -- if special 
base = and exponent <, 0, gives result 
= and prints error message 

CFEXP complex scalar to a real floating point special 
power -- if base = 0, gives result = 
and prints error message 

CCEXP complex scalar to a complex power special 

if base = 0, gives result = and 

prints error message 
t 

CONTROL application of SPIREL to non-complex explicit 

item 

CCONTROL application of SPIREL to complex item explicit 
SCRIBE formatted line printing explicit 

(Genie pro- 
grams only) 
PRESCRIBE formatted line printing with page control explicit 

(Genie pro- 
grams only) 

PLOT plot on printer of one vector versus explicit 

another or of a vector versus its 
indices 



+ 
In the Genie language, if argument is complex, corresponding 

complex routine will be used. 
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LIBRARY CONTENT 
10 
• Debug Routines 

These utility programs are never used in assembly language 
coding. Detailed explanations are given in the Library Routines 
section. 



NAME 



DESCRIPTION 



EXECUTION 



COMP 



library compression 



-INOUT input /output from compiled programs 



•-ERPR prints error message 

EDIT communication for compression and 
system maintenance 

•-ENTRY records information for error print 
INPUT user's input routine 



OUTPUT user's output routine 



internal library 
use only 

used only by 

Genie-generated 

code 

internal library 
use only 

console use only 



internal library 
use only 

used only by 

Genie-generated 

code 

used only by 

Genie-generated 

code 
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• Cons tants 

NAME DESCRIPTION 

LINCT number of lines used on current page 

updated by SCRIBE and PRESCRIBE 

PAGCT number of page being printed 

updated by PRESCRIBE 

used for storage control by EDIT only 

complex scalar accumulator, double word 
operand with name "ditto" (<-«-*-«-«-) on 



-TEMP 
CMPLX 



LIBRARY CONTENT 
11 



-ELOC 



second part 
information used in printing error message 



PROGRAMMED USE 

• Types of Routines 

The library routines may be classified by execution 
characteristics . 

Functions are programs which accept arguments by the follow- 
ing rules : 

for a single scalar argument, its value in T7 -- may not be 
output 

for a single non-scalar argument, * codeword address in T7 -- 
may be input, output, or both 

for N arguments, N > 1, the address of a scalar and * code- 
word address of a non-scalar on the B6-list at B6-N,..., 
B6-1 -- any may be input, output, or both (B6 decre- 
mented by N on exit) 

A function which provides no output or has one or more output 
arguments is for explicit execution only. 

A function which provides a single output which is not speci- 
fied as an argument is for implicit execution . The single output 
is provided as follows: 

real scalar in U and T7 

complex scalar in the complex scalar accumulator, CMPLX 

real non-scalar (vector or matrix) in the real non-scalar 

accumulator, *10 (octal) 
complex non-scalar (vector or matrix) in the complex non- 
scalar accumulator, CSTAR 
Note: Each complex argument is actually two arguments: 
the real part, then the imaginary part. Thus, for a function 
with one or more complex arguments, the number of arguments 
N > 2 always. Two words are used on the B6-list for each 
complex argument. 

Programs which do not accept arguments in T7 or on the B6-list 
by the above rules are not functions. They require s pecia 1 set-up 
for execution, e.g., arguments may be given in index registers. 
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PROGRAMMED USE 
2 
• Use in the Genie Language 

In the Genie language only function execution may be 
s peci f ied . 

Explicit execution of the function EXPLC with arguments 
A,B, and C is specified by the command 
EXECUTE EXPLC(A,B,C) 
Examp le : 

EXECUTE VSPACE(V,K) 
to execute the program VSPACE for dynamic creation of the vector 
V of length K. 

Implicit execution of the function IMPLC with arguments A,B, 
and C is specified on the righthand side of an equation, alone or 
in an expression: 

= . . .IMPLC (A ,B ,C) . . . 

Example : 

P = (SIN(X 2 )+SIN(Y 2 ))/(X-Y) 
involving two executions of the SIN program. 

An argument which is input only may be an expression. An 
output argument must be given as a simple name, scalar (not an 
element of a vector or matrix) or non-scalar as appropriate. 

Scalar input arguments may be specified numerically, e.g., -5. 39. 
Non-scalar arguments must be specified by name, not by number, e.g., 
the vector with codeword at +200 (octal) may not be referred to as 
+200 but must be assigned the value by 

LET #V = +200 
and then be referred to as V. 

Genie language may cause code to be generated which calls for 
execution of library routines which are not functions. 

Example: For scalar S and matrix M, the command 

3 2 
Q = S M 

causes execution of FXEXP , MPOWER , and SMMPY which are library 

routines for special execution. The command 

PRINT S ,M ,Q 

causes execution of the library routine -IN0U. 



PROGRAMMED USE 
3 
• Use in Assembly Language 

In either API or AP2 execution of any library routine may 
be specified by code to set up arguments and then TSR to the pro- 
gram. 

In an API program every named item which is referenced, in- 
cluding library routines and constants, must be given a cross- 
reference word through which it is indirectly addressed. This is 
accomplished with a REF pseudo-order as explained in the assembly 
language literature. Cross-reference words are set up automa- 
tically in Genie programs for all external named items referenced 
in the Genie language or AP2, including library routines and 
constants . 



RUNNING 
• Compression 

The set of library routines may be reduced to just that set 
necessary for support of any user system. This compression is 
provided by execution, from the console, of the program EDIT. All 
memory space occupied by unnecessary programs is made available for 
user storage. 

Library routines have negative Symbol Table indices (...,-2, 
-1,-0), and their Symbol Table entries bear a tag 1 initially. 

Private named items receive positive Symbol Table indices 
(1,2,...). 

Printing or punching ST-VT through SPIREL and execution of 
the library program EDIT cause contex t to be determined. This 
just means that all ST entries with negative indices have tag 1 
changed to tag (no tag) if the item represented is required for 
support of private programs loaded (on the basis of reference only, 
not dynamic use). Thus, only library items not in context bear 
tag 1 when a ST-VT print-out is obtained through SPIREL. All 
private named and numbered items are always in context. 

To use EDIT, obtain SPIREL and load private programs and any 
data which may be located outside the STEX domain. Do not activate 
STEX or execute any program. Execute the named program EDIT with 
a control word to SPIREL from the console (manually or off paper 
tape). Context is determined, and space occupied by all items not 
in context is freed. All free space is consolidated into a single 
area. If SL14 is off, a print-out is given of ST-VT entries for 
items in context. 

The "compressed" system may be written on tape for future use 
or may be used immediately for a run. Activate STEX, if desired, 
and load items into the STEX domain. Use an execute control word 
to start the system running. 

A "compressed" system (one in which EDIT has been executed) 
may not be compressed again. This would be meaningless and is 
impossible since the EDIT routine "erases" itself. 
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RUNNING 
2 

• Diagnostic Procedures 

The first version of a program should contain ample print 
outs that provide display of intermediate results. These may be 
edited out of the final version of the program or they may be 
executed conditionally on the basis of sense light settings. 

A program should be tested with sense light 14 off. This 
causes monitoring on the printer of all SPIREL operations, all 
input-output operations, and all space taking operations. Such 
information is often a valuable debugging aid. 

All the SPIREL diagnostic features available: tracing, 
arithmetic error monitoring, block bounds checking, diagnostic dump, 
memory dump. In addition, improper input to many library routines 
will cause an error message on the printer. Information provided 
includes the error made, the location of the transfer to the 
program detecting the error, and the name or codeword address of 
the calling program. 
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LIBRARY ROUTINES 

In this section the library routines are listed in alpha- 
betical order. The details of input, output, and operation are 
given for each program. The programs <-ERPR and GENTRY and the 
constant «-ELOC may be used by any routine; they are not mentioned 
as support. 
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LIBRARY ROUTINES 

2 

ACOSH, arc hyperbolic cosine 

Function: This routine computes the arc hyperbolic cosine 
of a number. 

Execution: implicit 
ACOSH(A) 
where argument A is floating point scalar input 
result is floating point scalar 
Errors: If A < 1.0, ACOSH gives result = and prints error 
mes sage . 

Support: programs LOG, SQR 



LIBRARY ROUTINES 
3 



ASIN, arc sine 



Function: This routine computes the arc sine of a number. 
Execution: implicit 
ASIN(A) 
where argument A is floating point scalar input 

result is floating point scalar, |ASIN(A)| < rr/2 
Errors: If |a| > 1.0, ASIN gives result = and prints 
error message . 

Support: program SQR 



LIBRARY ROUTINES 

4 



ASINH, arc hyperbolic sine 



Function: This routine computes the arc hyperbolic sin< 
of a number. 

Execution: implicit 
ASINH(A) 
where argument A is floating point scalar input 
result is floating point scalar 
Errors : none 
Support: programs LOG, SQR 



LIBRARY ROUTINES 
4.1 

ATAKE, array take 

Function: This routine creates an m-dimensional array, the lowest 

level of which contains primary codewords addressing n-dimensional 

arrays of zeroes. 

Execution: explicit 

ATAKE (A^. . .D ,Z,D 1 ...D ,N) 

where argument A is the real array to be created, 

argument D. is the length in the i dimension, 

argument Z indicates the break between m and n, and 

argument N ^ 6 is the number of dimensions (m+n)+l. 

Space formerly addressed as A is freed. An array of size D,x...xD 

1 m 

is created, to be indexed by registers Bl...Bm. Then arrays of size 
D- L x...xD n (with primary codewords at level D ) are created, to be 
indexed by registers Bl...Bn. 

Errors: If N > 6, or if any D. < 1, or if the Z parameter is 
missing or improperly located, an error message is printed. 

Support : MTAKE 
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LIBRARY ROUTINES 
5 

ATAN, arc tangent 

Function: This routine computes the arc tangent of a number. 
Execution: implicit 
ATAN(A) 
where argument A is floating point scalar input 

result is floating point scalar, |ATAN(A)| < jt/2 
Errors : none 
Support: none 



LIBRARY ROUTINES 

6 

ATANH, arc hyperbolic tangent 

Function: This routine computes the arc hyperbolic tangent 
of a number. 

Execution: implicit 
ATANH(A) 
where argument A is floating point scalar input 
result is floating point scalar 
Errors: If |a| £ 1.0, ATANH gives result = and prints 
error messa ge . 

Support: program LOG 



LIBRARY ROUTINES 
6.1 
CACSH, complex arc hyperbolic cosine 

Function: This routine computes the complex arc hyperbolic 
cosine of a complex number. 
Execution: implicit 
CAGSH (A) 
where argument A is complex scalar input 

result is complex scalar in CMPLX 
In the Genie language, same execution is specified by 

ACOSH (A) 
for complex argument A. 
Errors : none 
Support: program CASNH 
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CADD 



, complex add 



LIBRARY ROUTINES 
7 



Function: This r „„ tine forms t „. „„ Qf ^ 

Execution: special "' 

input (Bl) = address of real Dart nf r- 

reai part of first operand 

(B2) = address of real part of second operand 
result in U, R and in complex scalar accumulator, CMPLX 
Complex scalars mU st occu Py consecutive memory locations, real part 
followed by imaginary part. P 

Errors : none 
Support: scalar CMPLX 



LIBRARY ROUTINES 

8 



CARTN, polar to Cartesian conversion 



Function: This routine converts a double word scalar 
in polar form to a complex scalar in Cartesian form. 
Execution: implicit 
CARTN(A) 
where argument is double word scalar input in polar form, i.e., 
represented by floating point scalars r and 9 such that 
A = re 
result is complex scalar in standard Cartesian form, i.e., 
represented by floating point scalars x and y such that 
A = re - x + iy 
The polar form of a complex operand is a complex operand in the 
Genie language, but the arithmetic operations are not defined for 
this representation; input, output, and storage across an equals 
are meaningful for the polar form and useful. 
Errors : none 
Support: program SIN; scalar CMPLX 



LIBRARY ROUTINES 
8.1 

CASN, complex arc sine 

Function: This routine computes the complex arc sine of a 
complex number. 

Execution: implicit 
CASN (A) 
where argument A is complex scalar input 

result is complex scalar in CMPLX 
In the Genie language, same execution is specified by 

AS IN (A) 
for complex argument A. 
Errors : none 
Support: program CASNH; scalar CMPLX 
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LIBRARY ROUTINES 
8.2 

CASNH, complex arc hyperbolic sine 

Function: This routine computes the complex arc hyperbolic 
sine of a complex number. 
Execution: implicit 
CASNH (A) 
where argument A is complex scalar input 

result is complex scalar in CMPLX 
In the Genie language, same execution is specified by 

ASINH(A) 
for complex argument A. 
Errors : none 
Support: programs CADD, CLOG, CMPY, CSQR; scalar CMPLX 
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LIBRARY ROUTINES 
8.21 

CATAKE , complex array take 

Function: This routine creates an m dimensional complex array; 

the lowest level of which contains codewords addressing n-dimensional 

arrays of zeroes. 

Execution: explicit 

CATAKE (A, D 1 . . -D m /Z,D . .D fN) 

where argument A is the complex array to be created, 

argument D. is the length in the i dimension, 

argument Z indicates the break between m and n, and 

argument N ^ 6 is the number of dimensions (m+n)+l. 

Space formerly addressed as A is freed. A complex array of size 

D,x...D is created, to be indexed by registers Bl...Bm. Then complex 
1 m 

arrays of size D,x...xD (with primary codewords at level D ) are 
created, to be indexed by registers Bl...Bn. 

Errors: If n > 6, or any D. < 1, or if the Z parameter is either 
missing or improperly located, an error message is printed. 

Support : ATAKE , MTAKE 
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LIBRARY ROUTINES 
8.3 

CATN, complex arc tangent 

Function: This routine computes the complex arc tangent of 
a complex number. 

Execution: implicit 
CATN (A) 
where argument A is complex scalar input 

result is complex scalar in CMPLX 
In the Genie language, same execution is specified by 

AT AN (A) 
for complex argument A. 

Errors: If A = 0±/1.0, CATN gives result = and prints error 

message. 

Support: programs CASN, CATNH; scalar CMPLX 
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LIBRARY ROUTINES 
8.4 

CATNH, complex arc hyperbolic tangent 

Function: This routine computes the complex arc hyperbolic 
tangent of a complex number. 
Execution: implicit 
CATNH (A) 
where argument A is complex scalar input 

result is complex scalar in CMPLX 
In the Genie language, same execution is specified by 

ATANH(A) 
for complex argument A. 
| Errors: If A = ±1.0, CATNH gives result = and prints error 
message. 

Support: programs CDIV, CLOG; scalar CMPLX 
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LIBRARY ROUTINES 

9 

CCEXP, complex-complex exponentiation 

Function: This routine computes the exponentiation of a 
complex scalar to a complex power. 
Execution: special 
input address portion of (U) = address of real part of complex 
scalar to be raised to power 

address portion of (R) = address of real part of complex 
power 
result in U,R and in complex scalar accumulator, CMPLX. 

Complex scalars must occupy consecutive memory locations, real 
part followed by imaginary part. 

Errors: If base = 0, CCEXP gives result = and prints 
error message. 

Support: programs CEXP, CLOG, CMPY; scalar CMPLX 



LIBRARY ROUTINES 
10 



CCOL, number of columns in a complex matrix 

Function: This routine provides the number of columns in 
a complex matrix. 

Execution: implicit 
CCOL (A) 
where argument A is complex matrix input 

result is the integer number of columns in matrix A. 
In the Genie language the same execution is specified by 

COL (A) 
for complex argument A. 

Errors: If A does not exist, result = and an error message 
is printed. 

Support: program COL 
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CCONTROL, application of SPIREL to complex operand 

Function: This routine composes control words and applies 
SPIREL to the real then the imaginary part of a named complex 
quantity. 

Execution: Explicit 

GCONTROL(N ,WXYZ ,R ,CNAME) 
where arguments N, WXYZ , and R are control word fields as for 
CONTROL 
argument CNAME is the complex scalar or non-scalar to which 
the SPIREL operation is to be applied 
See description of CONTROL for further details and examples. In 
the Genie language the same exeuction is specified by 

CONTROL(N ,WXYZ ,R , CNAME) 
for complex argument CNAME. 
Errors : none 
Support: program CONTROL 
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CCOS, complex cosine 

Function: This routine computes the cosine of a complex 
number . 

Execution: implicit 
CCOS (A) 
where argument A is complex scalar input 

result is complex scalar in CMPLX 
In the Genie language, same execution is specified by 

COS (A) 
for complex argument A. 

Errors: If |imaginary part of A| > 170.0, CCOS gives result 
for |lM(A)| = 170.0 and prints error message. 

Support: programs SIN, SINH; scalar CMPLX 
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CCOT, complex cotangent 

Function: This routine computes the cotangent of a complex 
number . 

Execution: implicit 
CCOT(A) 
where argument A is complex scalar input 

result is complex scalar in CMPLX 
In the Genie language, same execution is specified by 

COT(A) 
for complex argument A. 

Errors: If (imaginary part of A| > 85.0, CCOT gives result 
for JIM(A)| = 85.0 and prints error message. 

Support: programs COT, SIN, SINH; scalar CMPLX 
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CCSH, complex hyperbolic cosine 

Function: This routine computes the complex hyperbolic cosine 
of a complex number. 

Execution: implicit 
j CCSH(A) 

\ where argument A is complex scalar input 
result is complex scalar in CMPLX 
In the Genie language, same execution is specified by 
; COSH (A) 

for complex argument A. 

Errors: If | real part of A| > 170.0, CCSH gives 
result for |RE(A) | = 170.0 and prints error message, 
i Support: programs SIN, SINH; scalar CMPLX 
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14 



CDET, complex determinant 



Function: This routine computes the determinant of a square 
standard complex matrix in the STEX domain. 

Execution: implicit 
CDET(A) 
where argument A is square complex matrix input 

result is complex scalar in CMPLX 
SPIREL monitoring for creation of intermediate results is provided 
if SL14 is off. In the Genie language the same execution is 
s pecif ied by 

DET(A) 
for complex argument A. 

Errors: If A does not exist, CDET prints an error message 
and performs no operation. If A is not square, CDET gives result 
= and prints an error message. 

Support: program CINV; non-scalar CSTAR 



LIBRARY ROUTINES 
15 
CDIV, complex divide 

Function: This routine forms the quotient of two complex 
s ca lars . 

Execution: special 
input (Bl) = address of real part of numerator 

(B2) = address of real part of denominator 
result in U,R and in complex scalar accumulator, CMPLX. 

Complex scalars must occupy consecutive memory locations, real 
part followed by imaginary part. 

Errors : none 

Support: scalar CMPLX 
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CEXP , complex exponential 

Function: This routine computes the exponential of a 
complex number . 

Execution: implicit 
CEXP (A) 
where argument A is complex scalar input 

result is complex scalar in CMPLX 
In the Genie language, same execution is specified by 

EXP (A) 
for complex argument A. 

Errors: If real part of A < -170.0, CEXP gives result = 0; 
I if real part of A > 170.0, CEXP gives result for RE (A) = 170.0 and 
prints error message. 

Support: programs EXP, SIN; scalar CMPLX 
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CFEXP, complex-floating point exponentiation 

Function: This routine computes the exponentiation of a 
complex scalar to a real floating point power. 
Execution: special 

input address portion of (U) = address of real part of complex 

scalar to be raised to power 

(R) = floating point scalar power 
result in U,R and in complex scalar accumulator, CMPLX 

Complex scalars must occupy consecutive memory locations, real 
part followed by imaginary part. 

Errors: If base s 0, CFEXP gives result = and prints 
error mes sage . 

Support: programs CARTN, FLEXP, POLAR; scalar CMPLX 



LIBRARY ROUTINES 

17 .1 

CHISQ, y 2 

2 
Function: This routine computes \ , measure of fit, for two 

floating point vectors of equal length. 

Execution: implicit 

CHISQ(A ,B) 

where argument A is the theoretical distribution, real floating 

point vector input 

argument B is the observed distribution, real floating 

point vector input 

result is real scalar, computed as 

n , _ . « 2 

i = l X 
where vectors are of length n 
Errors: If A and B are not equal in length or if either does 
not exist, CHISQ prints an error message and gives result = 0. 
Support: none 
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CINV, complex matrix inverse 

Function: This routine forms the inverse of a standard complex 
matrix in the STEX domain. 

Execution: implicit 
CINV (A) 
where argument A is standard complex matrix input 

result is in complex non-scalar accumulator, CSTAR 
Input matrix is not destroyed. SPIREL monitoring for creation of 
the result is provided if SL14 is off. 

The usual application of CINV is to compute the inverse of a 
square matrix. CINV will work on a matrix containing more columns 
than rows, say n rows and m columns with m > n. In this case m - n 
systems of linear equations are represented 



P th system 



^A. .X. + ...+A, X -A, , = 
1,1 1 l,n n l,n+p 



I A ,L + +A X -A 

^ n,l 1 n,n n n,n+p 



= 



for p = l,...,m-n. Column p of the result matrix contains the 

solution of the p system: 

X, in A, X in A 

1 l,n+p,..., n n,n+p 

] The left square portion (n Columns) of the matrix result is the 

1 

j inverse of the left square portion of the input. In the Genie 

language the same execution is specified by 

INV(A) 

for complex argument A. 

Errors : If A does not exist or if A contains more rows than 
columns, CINV prints an error message and performs no operation. 
If A is singular, no result is given, and CINV prints an error 
message. 

Support: programs CADD, CDIV, CMCPY, CSUB, MOD; scalar CMPLX, 
non-scalar CSTAR 
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CLENGTH / length of a complex vector 

Function: This routine provides the length of a complex vector. 
Execution: implicit 
CLENGTH(A) 
where argument A is complex vector input 

result is integer length of vector A. 
In Genie programs the same execution is specified by 

LENGTH (A) 
for complex argument A. 

Error: If A does not exist, result = and an error message 
is printed. 

Support: program LENGTH 



LIBRARY March, 196 8 



LIBRARY ROUTINES 
20 

CLOG, complex natural logarithm 

Function: This routine computes the natural logarithm of a 
complex number. 

Execution: implicit 
CLOG(A) 
where argument A is complex scalar input 

result is complex scalar in CMPLX with imaginary part > 

In the Genie language, same execution is specified by 

LOG (A) 
for complex argument A. 

Errors: If A = (both real and imaginary parts =0), 
CLOG gives result = and prints error message. 

Support: programs LOG, POLAR; scalar CMPLX 
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CMADD , complex matrix add 

Function: This routine forms the sum of two standard complex 
vectors or two standard complex matrices in the STEX domain. 

Execution: special 
input (Bl) = codeword address of real part of first operand 

(B2) := codeword address of real part of second operand 
result in complex non-scalar accumulator, CSTAR 
If either (Bl) or (B2) null on entry, the corresponding operand 
is taken as the complex non-scalar accumulator, CSTAR. An operand 
which is not CSTAR is not destroyed. The two codewords for a com- 
plex non-scalar must occupy consecutive memory locations, real part 
followed by imaginary part. SPIREL monitoring for creation of the 
result is provided if neither operand is CSTAR and SL14 is off. 

Errors: If either operand does not exist, CMADD prints 
error message and performs no operation. If dimensions of the 
two operands are not the same, CMADD uses the subset of the 
larger which corresponds to the smaller, performs the addition, 
and prints error message. 

Support: programs MADD, MSUB; non-scalar CSTAR 
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CMCON , complex matrix construction 

Function: This routine forms a standard complex vector 
or matrix from two standard vectors or matrices in the STEX domain. 
The operands must be of the same dimensions and should contain 
floating point elements. 

Execution: special 
input (Bl) = codeword address of real part 

(B2) = codeword address of imaginary part 
result in complex non-scalar accumulator, CSTAR 
If either (Bl) or (B2) null on entry, the corresponding operand 
is taken as the non-scalar accumulator, *10 . An operand which 
is not *10 is not destroyed. SPIREL monitoring for creation of 
the result is provided if SL14 is off. 

Errors: If either operand does not exist or if the operands 
are not of the same dimension, CMCON prints error message and 
performs no operation. 

Support: program MCOPY, non-scalar CSTAR 
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CMCPY, complex matrix copy 

Function: This routine copies a standard vector or matrix in 
the STEX domain. 

Execution: Special 

Input: (Bl) = codeword address of real part of copy 

(B2) = codeword address of real part of vector or matrix 
to be copied. 

If (Bl) is null on entry, (B2) is copied into CSTAR, the complex 
non-scalar accumulator. (B2) is never erased after the copy. If 
(Bl) = (B2) , (B2) is assumed to be a duplicate codeword (see SPIREL 
section on Storage Control) . Then an actual copy is made of (B2) 
and the duplicate backreference is removed. SPIREL monitoring for 
creation of the copy is provided if SL14 is off. 

Errors: If the complex non-scalar (B2) to be copied does not 
exist, CMCPY prints an error message and performs no operation. 

Support: program MCOPY; non-scalar CSTAR. 
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CMMPY, complex matrix multiply 

Function: This routine forms the product of two standard 
complex vectors (dot product, a scalar) , a standard complex vec- 
tor and a standard complex matrix (a vector) , or two standard 
complex matrices (a matrix) . Operands must be in the STEX domain. 
Execution: special 
input (Bl) = codeword address of real part of lefthand operand 

(B2) = codeword address of real part of righthand operand 
scalar result in CMPLX; non-scalar in CSTAR 
If either (Bl) or (B2) null on entry, the corresponding operand is 
taken as the complex non-scalar accumulator, CSTAR. An operand 
which is not CSTAR is not destroyed. Note that vector x matrix 
treats the vector as a one-column matrix. The dot product given by 
vector A x vector B is defined as EA.B. where B. is the conjugate 
of B. . The two codewords for a complex non-scalar must occupy con- 
secutive memory locations, real part followed by imaginary part. 
SPIREL monitoring for creation of the result is provided if SL14 is 
off. 

Errors: If either operand does not exist, CMMPY prints error 
message and performs no operation. If the non-scalar operands do 
not have dimensions compatible for multiplication, CMMPY uses the 
subset of the operand with the larger pertinent dimension which 
corresponds to the operand with the smaller pertinent dimension, 
performs the multiplication, and prints an error message. 

Support: programs MADD, MMPY, MSUB; scalar CMPLX; non- 
scalar CSTAR 
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CMPY, complex multiply 

Function: This routine forms the product of two complex 
sea lars . 

Execution: special 

input (Bl) = address of real part of first operand 

(B2) = address of real part of second operand 

result in U,R and in complex scalar accumulator, CMPLX 

Complex scalars must occupy consecutive memory locations, real 
part followed by imaginary part. 

Errors : none 

Support: scalar CMPLX 
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CMSPACE, complex matrix space 

Function: This routine creates a standard complex matrix 
of zeroes in the STEX domain. 
Execution: explicit 

CMS PACE (A ,B ,C) 
where argument A is complex matrix to be created 
argument B is integer number of rows in A 
argument C is integer number of columns in A 
Storage addressed formerly as A is freed; then, if both B > and 
C > 0, a complex matrix (two matrices with adjacent codewords) 
with B rows and C columns is created. SPIREL monitoring for free- 
ing or creating is provided if SL14 is off. In the Genie language 
the same execution is specified by 

MS PACE (A ,B ,C) 
for complex argument A. 
Errors: none 
Support: program MSPACE 



LIBRARY ROUTINES 
2 7 

CMSUB, complex matrix subtract 

Function: This routine forms the difference of two standard 
complex vectors or two standard complex matrices in the STEX domain 
Execution: special 
input (Bl) = codeword address of real part of operand to be 
subtracted from 
(B2) = codeword address of real part of operand to be 
subtrac ted 
result in complex non-scalar accumulator, CSTAR 
If either (Bl) or (B2) null on entry, the corresponding operand 
is taken as the complex non-scalar accumulator, CSTAR. An operand 
which is not CSTAR is not destroyed. The two codewords for a com- 
plex non-scalar must occupy consecutive memory locations, real part 
followed by imaginary part. SPIREL monitoring for creation of the 
result is provided if neither operand is CSTAR and SL14 is off. 

Errors: If either operand does not exist, CMSUB prints 
error message and performs no operation. If dimensions of the 
two operands are not the same, CMSUB uses the subset of the 
larger which corresponds to the smaller, performs the subtraction, 
and prints error message. 

Support: program CMADD 
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CMTAKE, complex matrix take 

Function: This routine creates an n-dimensional complex array 
of zeroes. 

Execution: explicit 

CMTAKE (A ,D lf ... ,D ,N) 
where argument A is complex array to be created 
argument D i is length in the i th dimension 
argument N ^ 5 is the number of dimensions 
Space addressed formerly as A is freed; then an array of size 

D 1 x...xD N is created, to be indexed by registers Bl, ,BN. SPIREL 

monitoring for creating A is provided if SL14 is off. In the Genie 
language the same execution is specified by 

MTAKE(A,D 1 ,... ,D N ,N) 
for complex argument A. 

Errors: If any D. < 1, N < 1, or N > 5, CMTAKE gives no result 
and prints an error message. 
Support: program MTAKE 
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COL, number of columns in a matrix 

Function: This routine provides the number of columns in 
a matrix. 

Execution: implicit 
COL (A) 
where argument A is a matrix input 

result is the integer number of columns in matrix A. 

Errors: If A does not exist, result = and an error message 
is printed. 

Support : none 
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29 



CONJ, conjugate of complex scalar 



Function: This routine provides the conjugate of a complex 
s ca lar . 

Execution: implicit 
CONJ(A) 
where argument A is complex scalar in standard Cartesian form 
result is complex scalar in CMPLX 
Errors : none 
Support: scalar CMPLX 
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30 



CONTROL, application of SPIREL 



Function: This routine composes a control word and applies 
SPIREL to a named quantity. 
Execution: explicit 

C0NTR0L(N ,WXYZ ,R ,NAME) 
where argument N is an integer, the "N" field (first five traids) 
of the control word to be executed 
argument WXYZ is an integer, the "wxyz" field (next four 
triads) of the control word to be executed, usually 
given as an octal configuration 
argument R is an integer, the M R" field (next four triads) 

of the control word to be executed 
argument NAME is the scalar or non-scalar to which the 
SPIREL operation is to be applied 
If NAME is a scalar, the N field in the control word must be 1, 
the x triad in the control word must = so that WXYZ would be 
given as +w0yz in Genie. If NAME is a non-scalar (vector, matrix, 
or program), the x triad in the control word should = 4 so that 
WXYZ would be given as +w4yz in Genie. 
Examples : 

EXECUTE C0NTR0L(n, +4400 ,k, BLOCK) 
in the Genie language would cause SPIREL to print n words of the 
vector or program BLOCK in octal, starting at the k . 

EXECUTE CONTROL(0, +5440,0 ,DATA) 
in the Genie language would cause SPIREL to punch all data of the 
array DATA in hexad with tag and checksum format. 

EXECUTE C0NTR0L(1, +4030,0, RATE) 
in the Genie language would cause SPIREL to print the scalar RATE 
in decima 1 . 

Errors : none 
Support : none 
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CONVL, convolution 

Function: This routine computes the convolution of two real 
floating point vectors. 

Execution: implicit 
CONVL(A,B) 
where argument A is the shorter (filter) input vector 
argument B is the longer (data) input vector 
result is real floating point vector in the non-scalar 

accumulator, *10, of length = (length of B) - (length of 
A)+l 
In computing dot products, CONVL does not extend the filter beyond 
the ends of the data; but "slow start-up" may be obtained by having 
sufficient zeroes at the ends of the data. 

Errors: If A or B does not exist, CONVL prints an error 
message and performs no operation. 
Support: program VREV 
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COS, cosine 

Function: This routine computes the cosine of a number. 
Execution: implicit 
COS (A) 
where argument A is floating point scalar input 
result if floating point scalar 

Also, (R) = SIN (A) on exit. 

ii 4 7 
Errors: If |A | :>"2 , COS gives result = and prints an error 

message. 

Support: program SIN 



LIBRARY March, 196 8 



LIBRARY ROUTINES 
32 

COSH, hyperbolic cosine 

Function: This routine computes the hyperbolic cosine of a 
number . 

Execution: implicit 
COSH(A) 
where argument A is floating point scalar input 

result is floating point scalar 
Also, (R) = SINH(A) on exit. 

Errors: If |a| > 170.0, COSH gives result for |a| = 170.0 
and prints error message. 

Support: program SINH 
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COT, cotangent 

Function: This routine computes the cotangent of a number. 
Execution: implicit 
COT (A) 
where argument A is floating point scalar input 
result is floating point scalar 
Error: If |a| = multiple of 3tt/2 , COT gives result = and 
prints an error message. 

Support: ' program TAN 
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CRCOR , cross -corre la tion or auto-correlation 

Function: This routine performs the cross -co rre la tion of two 
vectors of equal length or auto-correlation on a single vector. 
Execution: implicit 

CRCOR(A ,B ,C) 
where argument A is real floating point vector input 

argument B is real floating point vector input, B^A for 

cross-correlation, B=A for auto -cor re la t ion 
argument C is integer specifying length of result, 

£ 2(input length)-l for cross-correlation, <. input length 
for au to -corre la tion , C=Z for maximum length result 
result is standard floating point vector in the non-scalar 
accumulator, *10 
Errors: If C > 2(input length)-l for cross-correlation or 

C > input length for au to -co rre la tion , CRCOR prints an error message 
and gives maximum length result. If A and B are not equal in length 
or either does not exist, CRCOR prints an error message and per- 
forms no operation. 
Support : none 
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CROW, number of rows in a complex matrix 

Function: .This routine provides the number of rows in a 
complex matrix. 

Execution: implicit 
CROW (A) 
where argument A is complex matrix input 
I result is integer number of rows in matrix A. 
In the Genie language the same execution is specified by 

' ROW (A) 
for complex argument A. 

Error: If A does not exist, result = and an error message 
is printed. 

Support: program CLENGTH 
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CSIN, complex sine 

Function: This routine computes the sine of a complex 
number . 

Execution: implicit 
CSIN(A) 
where argument A is complex scalar input 
result is complex scalar in CMPLX 

In the Genie language, same execution is specified by 

SIN(A) 
for complex argument A. 

Errors: If |imaginary part of A| > 170.0, CSIN gives result 

for |lM(A) | = 170.0 and prints error message. 

Support: programs COS, SINH; scalar CMPLX 
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CSNH, complex hyperbolic sine 

Function: This routine computes the complex hyperbolic sine 
of a complex number. 

Execution: implicit 
CSNH(A) 
where argument A is complex scalar input 

result is complex scalar in CMPLX 
In the Genie language, same execution is specified by 

SINH(A) 
for complex argument A. 

Errors: If | real part of A| > 170.0, CSNH gives result 
for |RE(A)| = 170.0 and prints error message. 

Support: programs SIN, SINE; scalar CMPLX 
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CSMDV, complex sea lar -ma trix divide 

Function: This routine divides a standard complex vector 
or matrix in the STEX domain by a complex scalar. 
Execution: special 
input (Bl) = codeword address of real part of non-scalar operand 

(U) = address of real part of scalar operand 
result in complex non-scalar accumulator, CSTAR 
If (Bl) null on entry, the non-scalar operand is taken as CSTAR. 
A non-scalar which is not CSTAR is not destroyed. The two words 
for a complex scalar and the two codewords for a complex 
non-scalar must occupy consecutive memory locations, real part fol- 
lowed by imaginary part. SPIREL monitoring for creation of the 
result is provided if SL14 is off. 

Errors: If the non-scalar operand does not exist or if the 
scalar = 0, CSMDV prints error message and performs no operation. 
I Support: programs CMCPY, CDIV; scalar CMPLX; non-scalar CSTAR 
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CSMMP, complex scalar-matrix multiply 

Function: This routine forms the product of a complex scalar 
and a standard complex vector or matrix in the STEX domain. 
Execution: special 
input (Bl) = codeword address of real part of non-scalar operand 

(U) = address of real part of scalar operand 
result in complex non-scalar accumulator, CSTAR 
If (Bl) null on entry, the non-scalar operand is taken as CSTAR. 
A non-scalar which is not CSTAR is not destroyed. The two words 
for a complex non-scalar must occupy consecutive memory locations, 
real part followed by imaginary part. SPIREL monitoring for 
creation of the result is provided if SL14 is off. 

Errors: If non-scalar operand does not exist, CSMMP prints 
error message and performs no operation. 

Support: programs CMCPY, CMPY; non-scalar CSTAR 
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CSOLN, complex linear equations solution 

Function: This routine provides the solution to a system 

of linear equations represented by a square standard complex 

matrix of coefficients and a standard complex vector of constants. 

The operands must be in the STEX domain. 

Execution: implicit 

CSOLN (A,B) 

where argument A is square complex matrix of coefficients 

argument B is complex vector of constants 

representing a system of n equations of the form 

A. n X,+...+A. X = B. , i = l,2,...,n 
i,ll 1 ,n n x 

result is complex vector in the complex non-scalar accumula- 
tor, CSTAR, with the value of X^ as the i element 
SPIREL monitoring for creation of the result is provided if SL14 
is off. In the Genie language the same execution is specified by 

SOLN (A) 
for complex argument A. In assembly language coding the argument 
B may be a matrix of m columns representing m systems of equations 
of the form 

A. ,X, . + ...+A. X . = B. . , i = 1,2,. ..,n and j = 1,2,... f m 
1,1 1,] i,n n,3 i,: 

Then the result in CSTAR is a matrix with the solution to the j 
system as the j column 

X n . X . X^ . 
1,], 2,3 ,. . . , n,3 

Errors: If A or B does not exist or if dimensions are not 
proper of if a solution is not defined, CSOLN prints an error 
message and performs no operation. 

Support: program CINV; non-scalar CSTAR 
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CSQR, complex square root 



Function: This routine computes the square root a complex 
number . 

Execution: implicit 
CSQR(A) 
where argument A is complex scalar input 

result is complex scalar in CMPLX with imaginary part 2: 

In the Genie language, same execution is specified by 

SQR(A) 
for complex argument A. 
Errors : none 
! Support: programs CARTN, POLAR, SQR; scalar CMPLX 
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CSUB, complex subtract 

Function: This routine forms the difference of two complex 
s ca lars . 

Execution: special 
input (Bl) = address of real part of the operand to be sub- 
tracted from 
(B2) = address of real part of the operand to be sub- 
trac ted 
result in U,R and in complex scalar accumulator, CMPLX 

Complex scalars must occupy consecutive memory locations, real 
part followed by imaginary part. 

Errors : none 

Support: scalar CMPLX 
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CTAN, complex tangent 

Function: This routine computes the tangent of a complex 
number . 

Execution: implicit 

CTAN(A) 

where argument A is complex scalar input 

result is complex scalar in CMPLX 

In the Genie language, same exeuction is specified by 

TAN (A) 
for complex argument A. 

Errors: If |imaginary part of A| > 85.0, CTAN gives result 
for |lM(A)| = 85.0 and prints error message. If A is near singula- 
rity of complex tangent, CTAN gives result = tangent of real part 
of A and prints error message. 

Support: programs SIN, SINH, TAN; scalar CMPLX 
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CTNH, complex hyperbolic tangent 

Function: This routine computes the complex hyperbolic 
tangent of a complex number. 
Execution: implicit 
CTNH (A) 
where argument A is complex scalar input 

result is complex scalar in CMPLX 
In the Genie language, same execution is specified by 

TANH(A) 
for complex argument A. 

Errors: If | real part of a| > 85.0, CTNH gives result for 
| RE (A) | = 85.0 and prints error message. If A is near singularity, 
CTNH gives result = tangent of real part of A and prints error 

message. 
I Support: programs CASN, CTAN; scalar CMPLX 
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CTRAN, complex matrix transpose 

Function: This routine forms the transpose of a standard 
complex matrix in the STEX domain. 
Execution: implicit 
CTRAN (A) 
where argument A is standard complex matrix input 

result is in complex non-scalar accumulator, CSTAR 
Note that CTRAN forms the matrix B, transpose of A, such that 
B. .=A. .. SPIREL monitoring for creation of the result is pro- 
vided if SL14 is off. In the Genie language the same execution is 
specified by 

TRAN (A) 
for complex argument A. 

Errors: If A does not exist, CTRAN prints an error message 
and performs no operation. 

Support: programs CMCPY, TRAN; non-scalar CSTAR 
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CVSPACE, complex vector space 

Function: This routine creates a standard complex vector 
of zeroes in the STEX domain. 

Execution: explicit 
CVS PACE (A ,B) 
where argument A is complex vector to be created 

argument B is integer length of A 
Storage addressed formerly as A is freed; then, if B > 0, a 
complex vector (two vectors with adjacent codewords) of length 
B is created. SPIREL monitoring for freeing or creation of A 
is provided if SL14 is off. In the Genie language the same 
execution is specified by 

VSPACE (A ,B) 
for complex argument A. 

Errors : none 

Support: program VSPACE 



LIBRARY ROUTINES 
44 

CXEXP, complex-fixed point exponentiation 

Function: This routine computes the exponentiation of a 
complex scalar to an integer power. 
Execution: special 
input address portion of (U) = address of real part of complex 
scalar to be raised to power 
(R) as integer power 
result in U,R and in complex scalar accumulator, CMPLX, zero if 
base = and input (R) > 

Complex scalars must occupy consecutive memory locations, real 
part followed by imaginary part. 

Errors: If base = and input (R) ^ 0, CXEXP gives 
result = and prints error message. 

Support: programs CARTN, FXEXP, POLAR; scalar CMPLX 



LIBRARY ROUTINES 

45 



PET, determinant 



Function: This routine computes the determinant of a square 
standard matrix of floating point type. 
Execution: implicit 
DET(A) 
where argument A is square floating point matrix input 
result is floating point scalar 

A is destroyed only if it is the non-scalar accumulator, *10 . 
In any case *10 is freed. SPIREL monitoring is provided for 
creation of an intermediate non-scalar if SL14 is off. 

Errors: If A does not exist, DET prints an error message 
and performs no operation. If A is not square, DET gives 
result = and prints an error message. 

Support: program INV 



LIBRARY ROUTINES 
46 

DIAG, matrix dia gona liza tion 

Function: This routine dia gona lizes a symmetric matrix of 
floating point type in the STEX domain. The initial indices of 
the matrix must be one. It also provides eigenvectors if desired. 
Execution: explicit 
DIAG(A ,B ,C) 
where argument A is the matrix to be diagonalized and will contain 
the result 
argument B is the matrix to contain eigenvectors as rows, 

null if no eigenvectors desired 
argument C floating point scalar to be used as upper bound 

on off-diagonal elements of diagonalized matrix, null 

-48 
for upper bound as 2 times smallest diagonal element 

in result 

The input matrix may be stored in upper triangular form, initial 

row indices l,2,...,n for an n X n matrix 

Errors : none 

Support: program SQR 



LIBRARY ROUTINES 
47 

EDIT, library edit 

Function: This routine performs library maintenance operations 
and is executed for library compression. 

Execution: from the console only — from word 1 for com- 
pression (see RUNNING section) , from word 2 for punching (see 
MAINTENANCE section) , from word 3 for initialization only (see 
MAINTENANCE section) . 

Errors : none 

Support: program +COMP 
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EVEN, test integer even 

Function: This routine tests an integer for being even. 
Execution: implicit 
EVEN(A) 
where argument A is integer input 

result is Boolean value TRUE (represented by integer -0) 
if A is even, Boolean value FALSE (represented by 
integer -1) if A is odd 
Errors : none 
Support : none 



LIBRARY ROUTINES 
49 
EXP, exponential 

Function: This routine computes the exponential of a number. 
Execution: implicit 

EXP(A) 
where argument A is floating point scalar input 
result is floating point scalar 
Errors: If A < -170.0, EXP gives result =0. If A > 170.0, 

EXP gives result for A = 170.0 and prints error message. 
Support : none 



LIBRARY ROUTINES 
49.1 
FFT, fast Fourier transform 

Function: This program does a discrete Fourier transform or 
inverse, as directed by the parameters; it is also used by FFTC. 

1 ®~^- _ ■ o -ir /NT 
A | = =- E A, e ^ ' (exponent sign is + for an inverse) 

3 a k=0 K 

Execution: explicit 
FFT(A,B,C) 
where argument A is the input/output vector (complex) 

B is the real scale constant 

C is a Boolean variable: true if the sign of the 
exponent is negative, false otherwise, 
result is stored in A since the computation is done in place. 
FFT is most efficient for highly composite N, that is, if 
N = n-^.n^.n.,. . . . .n . If N is prime the running time is on the 
order of N , otherwise it is on the order of 

m 
N( i E 1 n i ). 

Errors: if A is non-existent, or the values require too much 
scratch storage, an error message is printed. 
Support: program COS. 
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FF TC, fast Fourier transform control program 

Function: This program causes a discrete Fourier transform 
or inverse to be done on an original input vector, as directed by 
the combination of input parameters. See FFT and RTRAN. 
Execution: explicit 

FFTC(A,B,C,D,E) 
where argument A is the input vector 

B is the output vector 
C is the real scale constant 
D is a Boolean variable: true for a transform, 

false for an inverse 
E is a Boolean variable: true if the complex vector 
is conjugate symmetric (i.e., only the right half 
of the vector is supplied) ; false, if not. 
The Fourier transform requires a complex input; therefore if input A 
is real, FFTC makes it complex under the following conditions: 

1. if a) input A has odd length N, and output B is specified 

as symmetric, 
or b) output B is specified as non-symmetric (parameter 

E false) , 
FFTC makes A complex by creating an imaginary part: a 
vector of zeroes N long. The output is complex vector B, 
each part of which is N long. 

2. If input A has even length N and B is specified as 
symmetric (E true) , FFTC saves time by creating a complex 
vector from A: the real part is the odd elements of A and 
the imaginary part is the even elements. This complex vector 
is N/2+1 long (the +1 being a zero added by the program to 
provide necessary working space for RTRAN) . FFT is then 
entered at the third instruction, causing the transform to 
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49.3 

be done on N/2 elements. RTRAN is done next, on N/2+1 
elements and the result is complex vector B (each part of 
which is N/2+1 long) . 
If the input A is already complex, FFTC does the following: 

1. if A is N long and not symmetric, the transform or in- 
verse is done directly and the output is a complex vector 
N long (the input and output vectors may both be A if the 
input doesn't need to be saved) . 

2. If A is symmetric, FFTC considers its length N to represent 
one half of the vector plus 1 (the mid-point) , and the real 
output B will be 2 (N-l) long. (This case is the reverse of 

2 above, i.e., it does RTRAN first, followed by FFT entered 
at the third instruction. By definition then, this case is 
an inverse and parameter D must be false) . 

The scale constant for a transform is usually 1.0; for an inverse 

1.0/length N. If the input and output vectors are different lengths, 

use the length of the one which is real. 

Errors: The following combinations of parameters produce 

error messages: 

1. A real, B real, C,D,E 

2. A complex, B complex, C,D,E true 

3. A complex, B real, C,D,E false 

Support: programs FFT, RTRAN, MCOPY, CMCPY; non-scalar s 
-CSTAR, USTAR, -DUMY. 
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FIX, convert to integer 

Function: This routine computes the integer closest to a 
floating point scalar. 

Execution: implicit 
FIX(A) 
where argument A is floating point scalar input 

result is integer closest to A, rounded up in absolute value 
Errors: If |a| ;> 16383.5, FIX gives result = and prints 
error mes sage . 

Support : none 



LIBRARY ROUTINES 
51 



FLEXP, floating point exponentiation 



Function: This routine computes exponentiation of a floating 
point number to a floating point power. 
Execution: special 
input (U) - floating point scalar to be raised to power 

(R) = floating point scalar power 
result in U and T7 which is (U) ^ ■ 

Errors: If input (U) < 0, FLEXP gives result m and 
prints error message. 

Support: programs EXP, LOG 



LIBRARY ROUTINES 
52 
FLOAT, convert to floating point 

Function: This routine provides the floating point equivalent 
of an integer . 

Execution: implicit 
FLOAT(A) 
where argument A is scalar input, integer or floating point 

result is floating point equivalent of A, just A if A is 
floating point 
Errors : none 
Support: none 



LIBRARY ROUTINES 

52.1 
FTRAN, Fourier transform 

Function: This routine computes the complex frequency (Hz) 
spectrum of a real function of time. The discrete time series must 
be stored in a floating point vector in the STEX domain,- and the 
values must be equally spaced in time. 
Execution: implicit 

FTRANfA^CD^F) 
where argument A is the real time series vector input, 

argument B is the upper time limit, floating point scalar 
argument C is the lower time limit, floating point scalar 
argument D is the upper frequency limit, floating point scalar 
argument E is the lower frequency limit, floating point scalar 
argument F is the frequency increment, floating point scalar 
result is complex vector in CSTAR, the complex non-scalar 
accumulator 
The Fourier integral is approximated by the trapezoidal quadrature 
formula. SPIREL monitoring for creation of the result is provided 
if SL14 is off. 

Errors: If A does not exist or B-C < or D-E < 0, FTRAN 
prints an error message and performs no operation. 

Support: programs CVSPACE, SIN; non-scalar CSTAR 
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FXEXP, fixed point exponentiation 

Function: This routine computes exponentiation of a number 
to an integer power. 

Execution: special 
input (U) = floating point or integer scalar to be raised to 
power 

(R) = integer power 

( R) 

result in U and T7 which is (U) v J and of same type as input (U), 

zero if input (U) is integer and | (U) j > 1 and 
input (R) < 0, zero if input (U) = and input 
(R) > 

Errors: If input (U) = and input (R) <. 0, FXEXP gives 
result = and prints error message. 

Support : none 



LIBRARY ROUTINES 
53 .1 

GAMMA, gamma function 

Function: This routine computes the gamma function of a real 

floating point number. 

Execution: implicit 
GAMMA (A) 
where argument A is real floating scalar input 

result is real floating point scalar computed by Stirling's 
logarithmic approximation 
Errors: If A<-27 , A>55.0, or A is a negative integer, GAMMA 
gives result=0 and prints an error message. 
Support: programs EXP, LOG 
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54 
IM , imaginary part 

Function: This routine provides the imaginary part of a 
complex scalar. 

Execution: implicit 
IM(A) 
where argument A is complex scalar input 

result is real floating point scalar 

If coded in the Genie language, the library routine is not used; 
but the routine may be used in assembly language coding. IM may 
be used on any double word scalar argument to provide the second 
part as a single word scalar. 

Errors : none 

Support : none 



LIBRARY ROUTINES 
54.1 
INPUT , special input 

Function: This routine is supplied by the user for special 
input to programs written in the Genie language. 

Execution: in Genie language only, by the command 
INPUT list 
where the program INPUT is entered once for each named variable in 
the list. A complex variable is treated as two items, the real 
part with the name of the variable and the imaginary part with the 
name "ditto" . The program INPUT must be coded in the assembly 
language, API. Information is given in T7 on entry to INPUT as 
follows: 

bits 1-30 name in BCD as given in list 
31-33 not used 
34-36 octal for scalar 
2 for vector 
4 for matrix 
39-41 not used 
40-54 address of scalar, codeword address for non-scalar 
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IHV, matrix inverse 

Function: This routine forms the inverse of a standard matrix 
in the STEX domain. The matrix must be of floating point type. 
Execution: implicit 
INV(A) 
where argument A is floating point standard matrix input 

result is floating point standard matrix in the non-scalar 
accumulator, *10 
Input matrix which is not *10 is not destroyed. SPIREL monitoring 
for creation of the result is provided if SL14 is off. The 
determinant of A is given in T7 on exit, floating point scalar. 

The usual application of INV is to compute the inverse of a 
square matrix. INV will work on a matrix containing more columns 
than rows, say n rows and m columns with m > n. In this case m - n 
systems of linear equations are represented 

A, ,X 1 +...+A 1 _X_-A 1 _._ = 
p"" system 



th i 'l ) l A l" r -* , - r "l J n A n "l,n+p 



A .X^.-.+A X -A , =0 
n , 1 1 n ,n n n ,n+p 

for p = l,...,m-n. Column p of the result matrix contains the 

solution of the p system: 

X- in A. , , . . . ,X in A 
1 1 ,n + p n n ,n + p 

The left square portion (n columns) of the matrix result is the 
inverse of the left square portion of the input, and the determi- 
nant computed is that of the left square portion of the input. 

Errors: If A does not exist or if A contains more rows than 
columns, INV prints an error message and performs no operation. 
If A is singular, no result is given, and INV prints an error 
message . 

Support: program MCOPY 



LIBRARY ROUTINES 
55 .0 
ITIMES, i times complex scalar 

Function: This routine computes i times a complex scalar. 
Execution: implicit 
ITIMES (A) 
where argument A is complex scalar, x+iy 

result is complex scalar in CMPLX , -y+ix 
Erro rs : none 
Support: scalar CMPLX 
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ITRAN, Inverse Fourier Transform 

Function: This routine computes the real time spectrum of a 
complex function of frequency (HZ), where F (HZ) =F (-HZ) . The pos - 
itive portion of the frequency domain must be stored in a complex, 
floating point vector in the STEX domain. 
Execution: implicit 

ITRAN(A,B,C,D,E,F) 
where argument A is the complex frequency vector input, 

argument B is the upper frequency limit, floating point scalar, 
argument C is the lower frequency limit, floating point scalar, 
argument D is the upper time limit, floating point scalar, 
argument E is the lower time limit, floating point scalar, 
argument F is the time increment, floating point scalar, 
result is real vector in the real non-scalar accumulator, *10. 
The Fourier integral is approximated by the trapezoidal quadrature 
formula. SPIREL monitoring for creation of the result is provided 
if SL14 is off. 

Errors: If A does not exist or B-C<:0 or D-E<0 , ITRAN prints an 
error message and performs no operation. 
Support: programs SIN, VSPACE. 
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LENGTH , length of vector 

Function: This routine provides the length of a vector. 
Execution: implicit 
LENGTH (A) 
where argument A is vector input 

result is integer length of vector A. 
Errors: If A does not exist, result = and an error message 
is printed. 

Support: none 
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LGAMMA , log gamma 

Function: This routine computes the logarithm of the gamma 
function of a non-negative real floating point number. 
Execution: implicit 
LGAMMA (A) 
where argument A is real floating point scalar input 
result is real floating point scalar 
Error: If A<0, LGAMMA gives result=0 and prints an error 
message . 

Support: programs GAMMA, LOG 
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57 



LOG, natural logarithm 



Function: This routine computes the natural logarithm of 
a number. 

Execution: implicit 
LOG (A) 
where argument A is floating point scalar input 
result is floating point scalar 
Errors: If A < 0, LOG gives result = argument and prints 
error message. 

Support : none 



LIBRARY ROUTINES 
58 



LOG10, logarithm, base 10 



Function: This routine computes the common logarithm of a 
number . 

Execution: implicit 
LOGIO(A) 
where argument A is floating point scalar input 
result is floating point scalar 
Errors: If A £ 0, L0G10 gives result c and prints error 
message . 

Support: program LOG 



LIBRARY ROUTINES 
59 



MADD j matrix add 



Function: This routine forms the sum of two standard vectors 
or two standard matrices in the STEX domain. The operands must 
agree in type, floating point or integer, and the result will be of 
the same type . 

Execution: special 
input (Bl) = codeword address for first operand 

(B2) = codeword address for second operand 
result in non-scalar accumulator, *10 
If either (Bl) or (B2) null on entry, the corresponding operand is 
taken as the non-scalar accumulator, *10. An operand which is 
not *10 is not destroyed. SPIREL monitoring for creation of the 
result is provided if neither operand is *10 and SL14 is off. 

Errors: If either operand does not exist, MADD prints error 
message and performs no operation. If dimensions of the two 
operands are not the same, MADD uses the subset of the larger which 
corresponds to the smaller, performs the addition, and prints 
error message . 

Support: none 



LIBRARY ROUTINES 
59 .1 
MAX, vector maximum 

Function: This routine computes the index of the element with 
the largest numeric value in a vector of floating point numbers. 
Execution: implicit 
MAX(A) 
where argument A is floating point vector input 
result is integer 
Errors: If A does not exist, MAX prints an error message and 
gives result =0. 

Support : none 
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MCARTN, matrix polar to Cartesian conversion 

Function: This routine converts a double word vector or 
matrix in the STEX domain in polar form to a complex vector or 
matrix in Cartesian form. 
Execution: implicit 
MCARTN (A) 
where argument is double word vector or matrix input in polar form, 
i.e., each element represented by floating point scalar s 

ie 

r and 9 such that the element = re 
result is complex vector or matrix in CSTAR in standard 
Cartesian form, i.e., each element represented by floating 
point scalars x and y such that the element = re 1 = x+iy 
SPIREL monitoring for creation of the result is given if SL14 is off. 
The polar form of a complex operand is a complex operand in the Genie 
language, but the arithmetic operations are not defined for this 
representation; input, output, and storage across an equals are 
meaningful for the polar form and useful. In the Genie language 
same execution is specified by 

CARTN (A) 
for non-scalar argument. 

Errors: If A does not exist, MCARTN prints an error message 
and performs no operation A. 

Support: programs CARTN, CMCPY, POLAR; scalar CMPLX; 

non-scalar CSTAR 
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MCMPL, matrix complex 

Function: This routine provides the complex equivalent of a 
real floating point vector or matrix in the STEX domain. 
Execution: special 
input (Bl)=codeword address for operand 
result in complex non-scalar accumulator, CSTAR 
If (Bl) null on entry, the operand is taken as the real non-scalar 
accumulator, *10 . 

Errors: If operand does not exist, MCMPL prints error message 
and performs no operation. 

Support: program MCOPY; non-scalar CSTAR 
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MCONJ, matrix conjugate 

Function: This routine provides the conjugate of a complex 
vector or matrix. 

Execution: implicit 
MCONJ (A) 
where argument A is complex vector or matrix input 

result is complex vector or matrix in CSTAR, each element 
being the conjugate of the corresponding element of A 
SPIREL monitoring for creation of the result is given if SL14 is 
off. In the Genie language same execution is specified by 

CON J (A) 
for non-scalar argument A. 

Errors: If A does not exist, MCONJ prints an error message 
and performs no operation. 

Support: program CMCPY; non-scalar CSTAR 
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MCOPY, matrix cop y 

Function: This routine copies a standard vector or matrix in 
the STEX domain. 

Execution: Special 

Input: (Bl) = codeword address for copy, 

(B2) = codeword address of vector or matrix to be copied, 

If (Bl) is null on entry, (B2) is copied into *10 , the non- 
scalar accumulator. (B2) is never erased after the copy. If (Bl) = 
(B2) , (B2) is assumed to be a duplicate codeword (see SPIREL section 
on Storage Control) . Then an actual copy is made of (B2) and the 
duplicate backref erence is removed. SPIREL monitoring for creation 
of the copy is provided if SL14 is off. 

Errors: If the non-scalar (B2) to be copied does not exist, 
MCOPY prints an error message and performs no operation. 

Support: programs MSPACE and VSPACE. 
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MEAN, Average Values 

Function: This routine computes the mean of a standard vector, 
Execution: implicit 
MEAN (A) 
where argument A is a floating point vector 
.result is a floating point scalar 

Errors: If A does not exist, MEAN gives result = and prints 
an error message. 

Support : none 
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MFLT, matrix float 

Function: This routine provides the floating point equivalent 
of an integer vector or matrix in the STEX domain. 

Execution: special 
input (Bl)=codeword address for operand 
result in non-scalar accumulator, *10 
If (Bl) null on entry, the operand is taken as the non-scalar 
accumulator, *10 . 

Errors: If operand does not exist, MFLT prints error message 
and performs no operation. 

Support: program MCOPY 
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MIM, matrix imaginary part 

Function: This routine provides the imaginary part of 
a complex vector or matrix. 

Execution: implicit 
MIM (A) 
where argument A is complex non-scalar input 

result is in non-scalar accumulator, *10 
MIM may be used on any double word non-scalar argument to provide 
the second part as a single word non-scalar. SPIREL monitoring 
for creation of the result is provided if SL14 is off. In the 
Genie language the same exeuction is specified by 

IM(A) 
for non-scalar argument A. 

Errors: If A does not exist, MIM prints error message and 
performs no operation. 

Support: program MCOPY 



LIBRARY ROUTINES 
63 .1 
MIN , vector minimum 

Function: This routine computes the index of the element with 
the smallest numeric value in a vector of floating point numbers. 
Execution: implicit 
MIN(A) 
where argument A is floating point vector input 
result is integer 
Errors: If A does not exist, MIN prints an error message and 
give s resu lt=0 . 

Support: program MAX 
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64 



MINDEX, matrix index 



Function: This routine changes the initial indices and 

B-mods for a vector or matrix in the STEX domain. 

Execution: explicit 

MINDEX(i ,b , V) for vector 

where argument i is integer, initial index (for i = zero, use -Z) 

argument b is integer (=1,2,.. .,7) for B-mod or zero to not 

change B-mod 

argument V is vector operand 

If both i and b are zero, the vector V is changed to standard form 

(initial index = 1 and Bl-mod). 

MINDEX(i ,b ,i ,b ,M) for matrix 
r ' r ' c ' c ' 

where arguments i and i are integers, row and column initial 

re ° ' 

indices respectively 

arguments b and b are integers (=1,2,..., 7) for row and 
r c 
column B-mods respectively or zero to not change B-mod 

argument M is matrix operand 

If arguments i ,b ,i , and b are zero, the matrix M is changed to 

standard form (initial indices = 1 and Bl-mod for rows, B2-mod 

for columns). 

Errors: If operand does not exist, MINDEX prints error 
message and performs no operation. 

Support : none 



LIBRARY ROUTINES 
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MINSERT, matrix insert 

Function: This routine inserts or deletes elements of a 
vector in the STEX domain or rows or columns of a matrix in the 
STEX domain. 

Execution: explicit 

MINSERT(n,r , V) for vector 
where argument n is integer, number of elements to insert as 
zeroes if > , number of elements to delete if < 
argument r is integer, index of first element inserted or 

de le ted 
argument V is vector operand 

MINSERT(n,r ,k,M) for matrix 
where argument n is integer, number of rows or columns to insert 
as zeroes if > 0, number of rows or columns to delete 
if < 
argument r is integer, index of first row or column inserted 

or deleted 
argument k is integer, k = 1 to operate on rows, k = 2 to 
operate on columns 
If argument n is zero, MINSERT deletes element, row, or column r 
and all following. If argument r is null, MINSERT inserts n 
elements, rows, or columns after the last. 
Errors : none 
Support : none 



LIBRARY ROUTINES 
65 . 1 
MITIMES, i times complex matrix 

Function: This routine computes i times a complex vector or 
ma trix . 

Execution: implicit 
MITIMES (A) 
where argument A is complex vector or matrix input 

result is complex vector or matrix in CSTAR, each element 
being i times the corresponding element of A 
SPIREL monitoring for creation of the result is given if SL14 is 
off. In the Genie languate same execution is specified by 

ITIMES(A) 
for non-scalar argument A. 

Errors: If A does not exist, MITIMES prints an error message 
and performs no operation 

Support: program MCONJ; non-scalar SCTAR 
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MMPY, matrix multiply 

Function: This routine forms the product of two standard 
vectors (dot product, a scalar), a standard vector and a standard 
matrix (a vector), or two standard matrices (a matrix). Operands 
must be in the STEX domain; they must agree in type, floating 
point or integer, and the result will be of the same type. 

Execution: special 
input (Bl) s codeword address for lefthand operand 

(B2) = codeword address for righthand operand 
scalar result in U and T7 ; non-scalar in accumulator, *10 
If either (Bl) or (B2) null on entry, the corresponding operand 
is taken as *10 . An operand which is not *10 is not destroyed. 
Note that vector X matrix treats the vector as a one-row matrix, 
and matrix X vector treats the vector as a one-column matrix. 
SPIREL monitoring for creation of the result is provided if SL14 
is of f . 

Errors: If either operand does not exist, MMPY prints 
error message and performs no operation. If the non-scalar 
operands do not have dimensions compatible for multiplication, 
MMPY uses the subset of the operand with the larger pertinent 
dimension which corresponds appropriately to the operand with 
the smaller pertinent dimension, performs the multiplication, 
and prints an error message. 

Support: none 



LIBRARY ROUTINES 
67 

MOD, modulus of complex scalar 

Function: This routine computes the modulus of a complex 
sea lar . 

Execution: implicit 
MOD (A) 
where argument A is complex scalar input 

result is real floating point scalar 
Errors : none 
Support: program SQR 



LIBRARY ROUTINES 
67.1 



MODUL, Compute Remainder 

Function: This routine computes A modulo B 
Execution: implicit 
MODUL (A, B) 
where A and B are integers . 

result is an integer 
Errors : none 
Support: none 
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MPATCH, matrix patch 



Function: This routine moves part of one vector or matrix 
in the STEX domain into another vector or matrix in the STEX domain. 
Execution: explicit 

MPATCH ([what], [from], [to]) 
where [from] arguments are i, FV to move from vector FV starting 
at element i (integer) 
[from] arguments are i, j, FM to move from matrix FM starting 

at element i, j (integers) 
[to] arguments are k, TV to move to vector TV starting at 

element k (integer) 
[to] arguments are k, I, TM to move to matrix TM starting 

at element k, t (integers) 
[what] arguments are given by the chart: 



to 



from 



FV. 



FM. . 



TV, 



m elements 
[what] as m 



m elements from row i 

[what] as l,m 
n elements from col j 

[what] as n,l 



TM 



k,£ 



m elements into row k 

[what] as l,m 
n elements into col t 

[what] as n,l 



n rows x m cols 
[what] as n,m 



Errors : none 
Support: none 
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MPOLAR, matrix Cartesian to polar conversion 

Function: This routine converts a complex vector or matrix 
in the STEX domain in Cartesian form to a double word vector or 
matrix in polar form. 

Execution: implicit 
MPOLAR(A) 
where argument A is complex vector or matrix input in standard 

Cartesian form, i.e., each element represented by floating 
point scalars x and y such that the element m x + iy 
result is double word vector or matrix in CSTAR in polar 
form, i.e., each element represented by floating point 

i 6 

scalars r and 9 such that the element = x+iy = re ; 
<: e < 2tt; if x = y ■ 0, then r a 6 = 
SPIREL monitoring for creation of the result is given if SL14 is 
off. The polar form of a complex operand is a complex operand in 
the Genie language, but the arithmetic operations are not defined 
for this representation; input, output, and storage across an 
equals are meaningful for the polar form and useful. In the Genie 
language the same execution is specified by 

POLAR(A) 
for non-scalar argument A, 

Errors: If A does not exist, MPOLAR prints an error message 
and performs no operation. 

Support: program MCARTN 
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MPOWER, matrix power 



Function: This routine raises a square standard matrix in 
the STEX domain to an integer power, generating a unit matrix 
for zero power, inverting for a negative power, and multiplying 
for powers > 1 in absolute value. The matrix must be of floating 
poin t ty pe . 

Execution: special 
input (U) = codeword address of matrix 

(R) = integer power 
result in non-scalar accumulator, *10 
If (U) null on entry, the input matrix is taken as *10 . A matrix 
which is not *10 is not destroyed. SPIREL monitoring for creation 
pf the result is provided if SL14 is off and the input is not *10 
with power one . 

Errors: If matrix does not exist, MPOWER prints error 
message and performs no operation. If power S and matrix is 
not square, MPOWER uses square portion, performs operation, and 
prints error message. If power < and matrix is not square, 
MPOWER prints error message and performs no operation. If 
power < and matrix is singular, no result is given, and MPOWER 
prints error message. 

Support: programs INV, MCOPY, MMPY 
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MRE, matrix real part 



Function: This routine provides the real part of a complex 
vector or matrix. 

Execution: implicit 
MRE (A) 
where argument A is complex non-scalar input 

result is in non-scalar accumulator, *10 
MRE may be used on any double word non-scalar argument to provide 
the first part as a single word non-scalar. SPIREL monitoring 
for creation of the result is provided if SL14 is off. In the 
Genie language the same execution is specified by 

RE (A) 
for non-scalar argument A. 

Errors: If A does not exist, MRE prints error message and 
performs no operation. 

Support: program MCOPY 
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MS PACE , matrix space 

Function: This routine creates a standard matrix of zeroes 
in the STEX domain. 

Execution: explicit 

MS PACE (A ,B ,C) 
where argument A is matrix to be created 

argument B is integer number of rows in A 
argument C is integer number of columns in A 
Storage addressed formerly as A is freed; then, if both B > 
and C > 0, a matrix with B rows and C columns is created. 
SPIREL monitoring for freeing or creating A is provided if SL14 
is off. If SL14 is on, MSPACE takes "fast" space by bypassing 
XCWD(*126) . 

Errors: none 
Support : none 
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MSUB, matrix subtract 

Function: This routine forms the difference of two standard 
vectors or two standard matrices in the STEX domain. The operands 
must agree in type, floating point or scalar, and the result will 
be of the same type. 

Execution: special 
input (Bl) = codeword address for the operand to be sub- 
tracted from 
(B2) = codeword address for the operand to be sub- 
trac ted 
result in non-scalar accumulator, *10 
If either (Bl) or (B2) null on entry, the corresponding operand is 
taken as the non-scalar accumulator, *10 . An operand which is not 
*10 is not destroyed. SPIREL monitoring for creation of the re- 
sult is provided if neither operand is *10 and SL14 is off. 

Errors: If either operand does not exist, MSUB prints 
error message and performs no operation. If dimensions of the 
two operands are not the same, MSUB uses the subset of the larger 
which corresponds to the smaller, performs the subtraction, and 
prints error message. 

Support: program MADD 
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MTAKE , matrix take 

Function: This routine creates an n-dimensional array of 
zeroes . 

Execution: explicit 

MTAKE (A, D^ . . . ,D ,N) 
where argument A is array to be created 

argument D. is length in the i dimension 
argument N < 5 is the number of dimensions 
Space addressed formerly as A is freed; then an array of size 
D-.X...XD is created, to be indexed by registers Bl,...,BN. SPIREL 
monitoring for creating A is provided if SL14 is off. If SL14 is 
on, MTAKE takes "fast" space by bypassing XCWD(*126). 

Errors: If any D. < 1, n < 1, or n > 5, MTAKE gives no 
result and prints an error message. 
Support: none 
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ODD, test integer odd 

Function: This routine tests an integer for being odd. 
Execution: implicit 
ODD (A) 
where argument A is the integer input 

result is Boolean value TRUE (represented by integer-0) if A 
is odd; Boolean value FALSE (represented by -1) if A is even. 
Errors : none 
Support: none 
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ORTHOG 3 matrix or thonorma lization 

Function: This routine orthonorma lizes (by the Gram-Schmidt 
method) the rows of a standard matrix in the STEX domain. The 
matrix must be of floating point type. 

Execution: implicit 
ORTHOG (A) 
where argument A is floating point standard matrix input 

result is floating point standard matrix in the non-scalar 
accumulator, *10 
Input matrix which is not *10 is not destroyed. SPIREL monitoring 
for creation of result is provided if input is not *10 and SL14 
is of f . 

Errors: If A does not exist or if the rows are not linearly 
independent, ORTHOG prints an error message and performs no opera- 
tion . 

Support: programs MCOPY , SQR 
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OUTPUT, special output 

Function: This routine is supplied by the user for special 
output from programs written in the Genie language. 

Execution: in the Genie language only, by the command 
OUTPUT list 
where the program OUTPUT is entered once for each named variable 
in the list. A complex variable is treated as two items, the real 
part with the name of the variable and the imaginary part with the 
name "ditto". The program OUTPUT must be coded in the assembly 
language, API. Information is given in T7 on entry to OUTPUT as 

name in BCD as given in list 
not used 

octal for scalar 
2 for vector 
4 for matrix 
39-41 not used 
40-54 address for scalar, codeword address for non-scalar 



w 


s: 






b 


its 


1- 


-30 






31- 


-33 






34- 


-36 
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PLOT, plot on the printer 



Function: This routine plots on the printer one floating 
point vector versus another or a floating point vector versus its 
indices . 

Execution: explicit 
PLOT(A ,B) 
where argument A is a vector of x-values to be plotted across the 
page from min on the left to max on the right 
argument B is a vector of y-values to be plotted down the 
page from max at the top to min at the bottom 



result is one-page plot of points 
(A ,B,), k in the index range 
of both A and B 



,< A k-V" 



fin 



creasing B 



increasing A, 



PLOT(Z,B) 
where argument Z (actually zero on the B6-list) specifies 

use of indices for x-values to be plotted across the 
page from min on the left to max on the right 
argument B is a vector of y-values to be plotted down the 

page from max at the top to min at the bottom 
result is one-page plot of points * 
(k,B, ) ,k in the index range 
of B . 



(k,B k )« 



[increasing B, 



increasing i 
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PLOT(A,Z) 
where argument A is a vector of x-values to be plotted across the 
page from min on the left to max on the right 
argument Z (actually zero on the B6-list) specifies use of 
indices for y-values to be plotted down the page from 
min at the top to max at the bottom 
result is plot on one or more ■ 



pages of points (A k) , 

k in the index range of A, 

one point per index value 



(A. ,k) 



increas in g A . 
* 1 



,increasing i 



No vector operands are destroyed. 

Errors: if both arguments are Z, an error message is printed. 
Support: none 
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POLAR, Cartesian to polar conversion 



Function: This routine converts a complex scalar in Carte- 
sian form to a double word operand in polar form. 
Execution: implicit 
POLAR(A) 
where argument A is complex scalar input in standard Cartesian 
form, i.e., represented by floating point scalars x and 
y such that A = x + iy 
result is double word operand in polar form, i.e., represent- 
ed by floating point scalars r and 8 such that 

i 9 
A = x + iy = re ; =s 9 < 2tt; if x = y = 0, then r = 9 = 

The polar form of a complex operand is a complex operand in the 
Genie language, but the arithmetic operations are not defined for 
this representation; input, output and storage across an equals 
are meaningful for the polar form and useful. 

Errors : none 

Support: programs ASIN, MOD; scalar CMPLX 
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PRESCRIBE, line print with format and page control 

Function: This routine is used in Genie programs only instead 
of SCRIBE to produce printed SCRIBE output with page control, head- 
ings, and page numbers. 

Execution: explicit* 

PRESCRIBE (Al, . . . ,AK,F ,N , TITLE , LIMIT) 

where argument F is the name of the format to be used j 

arguments A1,...,AK are variables whose values , y 
' ' as for 

are to be substituted successively for SCRIBE 

dummy variables in the format I 

argument N is the number of spaces after output 

of SCRIBE (Al, . . . ,AK,F) 
argument TITLE is either the name of a format containing 
only text or the name of a vector containing hexad 
data, to be used for title on pages (may be more than 
108 characters to exceed one line) 
argument LIMIT is the number of lines to be printed per 
page of output 
and * one additional argument is supplied automatically by the 
Genie compiler -- minus the number of arguments 
Al ,... ,AK,N , TITLE , LIMIT stored directly on the B6-list 
as a negative integer after the arguments 
Al , . . . ,AK ,N , TITLE , LIMIT 
If LINCT exceeds LIMIT on entry, PRESCRIBE prints a heading con- 
taining the specified title at the top of the next page. Then 
SCRIBE (Al ,... ,AK ,F) is executed. Finally, N spaces are provided. 
LINCT is updated to reflect all printing and spacing by PRESCRIBE. 
The heading is provided by PRESCRIBE after incrementing PAGCT 
by 1. It consists of a 1/2 inch margin (3 blank lines) at the top 
of the page, then the lines: 

...data and time... ...page no... 

...title supplied by user... 
. . . b lank line . . . 
PAGCT is used as the page number, and LINCT is set to 5 plus the 
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number of lines in the title after a heading print. 

In a fresh Genie SPIREL, LINCTR = PAGCTR = 0. Either may be 
used within private programs. Both should be updated if printing 
is done other than through SCRIBE or PRESCRIBE. Setting LINCTR = 
forces a new page on the next entry to PRESCRIBE. LIMIT = 60 pro- 
vides a 1/2 inch margin at the bottom of the page to match the mar- 
gin at the top . 

Errors: same as for SCRIBE 

Support: program SCRIBE; constants LINCT, PAGCT 
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2 

QCONF, y confidence 

2 
Function: This routine computes the y_ confidence level 

between two floating point vectors of equal length. 

Execution: implicit 

QCONF(A ,B) 

where argument A is the theoretical distribution, real floating 

point vector input 

argument B is the observed distribution, real floating point 

vector input 

result is real scalar, computed as 

Q(X 2 |v) = [ e 2 t 2 dt 
J 2 

X 

with degrees of freedom v=vector length -1 
Errors: If A and B are not equal in length or if either does 
not exist, QCONF prints an error message and gives result=1.0. If 
vector length <2, QCONF prints an error message and gives resu lt=0 
Support: programs CHISQ , EXP, SQR 
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RANDM, random number generator 



Function: This routine computes the first or the next in a 
sequence of pseudo-random floating point numbers evenly distributed 
between 0.0 and 1.0. 

Execution: implicit 
RANDM (A) 
where argument A =j: causes generation of the first random number, 
i.e., restarts the generation procedure 
argument A = Z causes generation of the next random number 

(starts the generation procedure on first execution) 
result is floating point scalar 
Errors : none 
Suppo r t : none 
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RE , rea 1 part 

Function: This routine provides the real part of a complex 
sea lar . 

Execution: implicit 
RE (A) 
where argument A is complex scalar input 

result is real floating point scalar 

If coded in the Genie language, the library routine is not used; 
but the routine may be used in assembly language coding. RE may 
be used on any double word scalar argument to provide the first 
part as a single word scalar. 

Errors : none 

Support : none 
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ROW , number of rows in a matrix 

Function: This routine provides the number of rows in a 
matrix. 

Execution: implicit 
ROW (A) 
where argument A is matrix input 

result is integer number of rows in matrix A. 

Errors: If A does not exist, result = and an error 
message is printed. 

Support: program LENGTH 
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RTRAN, real fast Fourier transformation 

Function: this program is used in conjunction with FFT by FFTC 
in those cases where 1) the complex input is conjugate symmetric 
and the output real; or 2) the input is real and even in length, 
and the output is complex and conjugate symmetric. 
Execution: explicit (see FFTC) 
RTRAN(A,B,C) 
where argument A is the input/output vector (complex) 

B is a Boolean variable: true if the sign of the 

exponent is negative, otherwise false. 
C is a Boolean variable: true for a transform, 
otherwise false. 
Errors: If A doesn't exist, an error message is printed. 
Support: programs COS, SIN. 
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SCRIBE, line print with format 

Function: This routine substitutes variables for dummy fields 
in a line skeleton called a format and prints the result. It may 
be used in Genie programs only. 
Execution: explicit* 

SCRIBE(A1,.. . ,AK,F) 
where argument F is the name of the format to be used 

argument A1,...,AK are variables whose values are to be 
substituted successively for dummy variables in the 
forma t 

and one additional argument is supplied automatically by 
the Genie compiler -- minus the number of arguments 
A1,...,AK,F stored directly on the B6-list as negative 
integer after the arguments A1,...,AK,F 
result is that printing occurs and the constant LINCT is 
incremented by 1 for each line. 

A format is a line skeleton written as a FORMAT statement 
in the Genie language, as a BCD pseudo-order in API. A format 
contains text and dummy variables . Special characters are used to 
form dummy variables: lower case letters 'a,b,c,d,e f* the 
characters '+,-,.' with *d' and »e*, and the digits '0' thru '9' 
with *f. A dummy variable is any consecutive sequence of special 
characters in the format. All other characters in the format are 
characters of text . The use of special characters to form dummy 
variables is explained below. 

SCRIBE operates by transferring text directly to the printed 
output and substituting argument values for dummy variables. The 
number of arguments need not equal the number of dummy variables in 
the specified format. If the number of arguments is less than the 
number of dummy variables, processing will cease when a dummy 
variable is encountered for which there is no argument. If the 
number of arguments is greater than the number of dummy variables, 
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SCRIBE (continued) 

the format will be used as many times as necessary to substitute 
all arguments, and each re-use of the format will cause a new line 
of printing to be initiated. The processing of a non-scalar 
argument is handled by replacement of successive dummy variables 
in the specified format with successive array elements -- all 
words of a program, all vector elements, all matrix elements by 
row, and generally all data words of any array. 

One or more lines may be printed on a single entry to SCRIBE. 
Line termination occurs due to: 

• special position notation 'fOf' 

-- causes printing and initialization of the next line 
at print position 1 (as on entry) , but scan of the for- 
ma t continues . 

• end of format 

-- if no arguments remain to be processed, causes 
printing and exit 

-- if more arguments remain to be processed, causes 
printing, initialization of the next line at print 
position 1, and reinitialization of the format scan. 

• dummy variable in format and no arguments remain to be 

processed 

-- causes printing and exit 

A dummy variable consists of a string of special characters 
with no embedded blanks. The representation determines the type 
of conversion to be applied to an argument and the appearance of 
the output. The types of dummy variables are as follows: 

A hexad dummy is formed by a string of 'a's with possibly 
embedded 'c's. The occurrence of any 'a' specifies hexad con- 
version of the argument. Each 'a' specifies the position of a 
hexad character, and each 'c' specifies a space within the field. 
Hexads are taken from the left end of the word: a hexad dummy 
with three 'a's will cause the three leftmost hexads of the argu- 
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ment specified to be printed. A machine word contains nine hexads; 
if there are more than nine 'a's in single hexad dummy, then more 
than one word of input must be used. If the argument is a scalar, 
successive words in memory will be used. If the argument is a 
non-scalar, successive array elements will be used. 

An oc tal dummy is formed by a string of 'b's with possibly 
embedded 'c's. The occurrence of any 'b 1 specifies octal conver- 
sion of the argument. Each 'b' specifies the position of an oc- 
tal digit, and each *c' specifies a space within the field. A 
machine word contains eighteen octal digits, so no more than 
eighteen 'b's in a dummy variable are meaningful. Octal digits 
are taken from the right end of the word: a dummy variable with 
four "b's will cause the four rightmost octal digits of the argu- 
ment specified to be printed. 

A decima 1 dummy is formed by a string of 'd's with possibly 
embedded 'c's, and perhaps the special -characters ' + ,-,. ,e'. The 
occurrence of any 'd' specifies decimal conversion of the argu- 
ment. Each character in the dummy specifies a position in the 
decimal output. The general form of a decimal dummy is: 

±d , -*d.d**-de±d ,, -d 

The decimal point '.' will appear in the output as in 
the dummy. It must appear to get the fractional part of a 
floating point argument, and then the fractional part is 
rounded in the last digit. If no decimal point appears, the 
last digit in the integer is rounded. 

The character 'e* appears in the printed output and 
indicates that the integer following it is the power of ten 
for the number in front of it. The 'e' causes output of a full 
field of decimal digits before the decimal point and an appro- 
priate exponent. 

Each 'd' specifies a decimal digit position in the out- 
put, before or after the decimal point or in the exponent. 

A character '+' or '-' specifies a sign position in 
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the output, either on the number or on its exponent. '-' 
specifies to print a sign (minus) only if the number which 
follows is negative. ' + ' specifies to always print a sign 
(plus or minus). A sign is always printed immediately to 
the left of the most significant digit of the number to which 
i t a pplies . 

A decimal dummy without 'e' may be overflowed by an 
argument value. The number will then be truncated on the left 
X being printed as the leftmost character. Thus with a dummy 
-dd.ddd the value 5763.4587 will be printed as X63.459. 

A Position dummy does not use an argument; it is formed 
by a pair of 'f's which bracket an unsigned integer which is the 
print position to move to in forming the line of output. The 'f's 
and the bracketed number do not appear on the printed output. The 
print positions are numbered from 1 to 108 from left to right. 
Any number of pairs of 'f's may appear anywhere except within 
variables on a dummy line. As a special case, 'fOf causes 
printing and initialization of the next line at print position 1. 
Examples: [Note _ denotes space] 

dummy variable argument value 

aaa hexad ABCDEFGHI 

aacaa hexad ABCDEFGHI 

aaaaaaaaa hexad THE_END 

bb octal ...461 

bb octal 0. . .01 

bbcb octal ...461 

d.d decima 1 3 .59 

dd.d decimal 3 .51 

d decimal 3.5 

dd decimal 3 

dd.d decimal 3 

-d.d decimal 3.52 

GENIE SPIREL February, 1967 



output 


ABC 


AB_CD 


THE_END 


61 


_1 


46_1 


3.6 


_ 3 - 5 


4 


_3 


_3.0 


3.5 



SCRIBE (continued) 

dummy variable 

-dd.d 

+d.d 

+d.d 

d.d 

d.d 

ddcddd 

-dd.ddde+dd 

+dd.ddde-dd 

+dd.dddce-dd 



argument value 
decimal -0.52 
decimal 3 .52 
decimal -0.52 
decima 1 -3.52 
decima 1 35 . 67 
decimal 1024 
decimal 45784.734 
decimal 45.784834 
decimal 45.784734 
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ou tput 

_-0.5 

+3 .5 

-0.5 

3.5 

5.7 or X.7 

_1_024 

_45 . 7 85 e_+3 

+45.7 85e__0 

+45.7 85 e 



In Genie, the format given by the statement 
SKEL FORMAT 

FIRST RESULTS aaaacaaa A=bbbcbbb 



B=-d.dddd 



C=-dd.ddce+d 



might be used in the explicit execution command 

EXECUTE SCRIBE (ALPHA ,A0NE ,BTWO ,A+B ,SKEL) 

to cause the printed output 
FIRST RESULTS TRUE END 



A=147 003 



B= 4.5969 



C = -47 .594 e-1 



Errors 



X in decimal field as explained under decimal 



dummy , 



Support: constant LINCT 
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SIN , s ine 

Function: This routine computes the sine of a number. 
Execution: implicit 
SIN(A) 
where argument A is floating point scalar input 
result is floating point scalar 

Also, (R) = COS(A) on exit. 

i i 47 
Errors: If |A|. > .2 , SIN gives result = and prints an 

error message. 

Support: none 
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SINH, hyperbolic sine 



Function: This routine computes the hyperbolic sine of a 
number . 

Execution: implicit 
SINH(A) 
where argument A is floating point scalar input 

result is floating point scalar 
Also, (R) = COSH(A) on exit. 

Errors: If |a| > 170.0, SINH gives result for |a| = 170.0 
and prints error message. 

Support: program EXP 
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SMDIV, scalar-matrix divide 



Function: This routine divides a standard vector or matrix 
in the STEX domain by a scalar. The operands must agree in type, 
floating point or integer, and the result will be of the same 
type . 

Execution: special 
input (Bl) = codeword address for non-scalar operand 

(U) = scalar operand 
result in non-scalar accumulator, *10 
If (Bl) null on entry, the non-scalar operand is taken as *10 . 
A non-scalar operand which is not *10 is not destroyed. SPIREL 
monitoring for creation of the result is provided if the non- 
scalar operand is not *10 and SL14 is off. 

Errors: If the non-scalar operand does not exist or if the 
scalar = 0, SMDIV prints an error message and performs no opera- 
tion . 

Support: program SMMPY 
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SMMPY, scalar-matrix multiply 



Function: This routine forms the product of a scalar and a 
standard vector or matrix in the STEX domain. The operands must 
agree in type, floating point or integer, and the result will be 
of the same type. 

Execution: special 
input (Bl) = codeword address for non-scalar operand 

(U) = scalar operand 
result in non-scalar accumulator, *10 
If (Bl) null on entry, the non-scalar operand is taken as *10 . 
A non-scalar operand which is not *10 is not destroyed. SPIREL 
monitoring for creation of the result is provided if the non- 
scalar operand is not *10 and SL14 is off. 

Errors: If non-scalar operand does not exist, SMMPY prints 
an error message and performs no operation. 
Support: program MCOPY 
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SOLN, linear equations solution 



Function: This routine provides the solution to a system of 
linear equations represented by a square standard matrix of co- 
efficients and a standard vector of constants, both of floating 
point type and in the STEX domain. 
Execution: implicit 
SOLN(A ,B) 
where argument A is a square floating matrix of coefficients 

argument B is a floating point vector of constants 
representing a system of n equations of the form 

A. X- + ... + A. X = B. , 1=1,2,. ...n 
i,ll i,nn l ' ' ' ' 

result is floating point vector in the non-scalar accumula- 
tor, *10 , with the value of X. as the i t element. 
An operand which is not *10 is not destroyed. SPIREL monitoring 
for creation of the result is provided if SL14 is off. 

Errors: If A or B does not exist or if dimensions are not 
proper or if a solution is not defined, SOLN prints an error message 
and performs no operation. 

Support: program INV 
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SQR, square root 

Function: This routine computes the square root of a number. 
Execution: implicit 
SQR(A) 
where argument A is floating point scalar input 
result is floating point scalar 
Errors: If A < 0, SQR gives result = and prints error 
mes sa ge . 

Support : none 
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STNDV, standard deviation 

Function: This routine computes the standard deviation of 
any vector of floating point numbers. 
Execution: implicit 
STNDV(A) 
where argument A is floating point vector input 
result is floating point scalar 
Errors: If A does not exist, STNDV prints an error message 
and performs no operation. 
Support: program SQR 



LIBRARY ROUTINES 
95 

TAN , tangent 

Function: This routine computes the tangent of a number. 
Execution: implicit 
TAN (A) 
where argument A is floating point scalar input 
result is floating point scalar 
Errors: If |a| s* 2 , or if |a| is a multiple of rr/2 , TAN 
gives result = and. prints an error message. 
Support: none 
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TANH, hyperbolic tangent 



Function: This routine computes the hyperbolic tangent of a 
number . 

Execution: implicit 
TANH(A) 
where argument A is floating point scalar input 

result is floating point scalar 
If |A| > 170.0, TANH gives |result| = 1.0. 
Errors : none 
Support: program EXP 
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TRAN , matrix transpose 

Function: This routine forms the transpose of a standard 
matrix in the STEX domain. 

Execution: implicit 
TRAN(A) 
where argument A is standard matrix input 

result is standard matrix in the non-scalar accumulator , *10 
Input matrix which is not *10 is not destroyed. SPIREL monitoring 
for creation of the result is provided if SL14 is off. 

Errors: If A does not exist, TRAN prints an error message 
and performs no operation. 

Support : none 
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TTAKE, Triangular Matrix Take 

Function: This routine creates an upper triangular matrix 
of zeroes in the STEX domain. 

Execution: explicit 
TTAKE(A,N) 
where argument A is the matrix to be created 

argument N is the size of the matrix (NXN) 
Storage formerly addressed as A is freed; then, if n > 0, a 
triangular matrix is created. If N = 0, any storage for A is 
freed and A is cleared. 

Errors : none 

Support: none 
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VREV, vector reversal 

Function: This routine reverses the order of the elements 
of a vector. 

Execution: explicit 
VREV (A) 
where argument A is vector input 
result replaces vector A 

Errors: If A does not exist, VREV prints an error message 
and gives no result. 

Support: none 
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VSPACE, vector space 



Function: This routine creates a standard vector of zeroes in 
the STEX domain. 

Execution: explicit 

VSPACE(A ,B) 
where argument A is vector to be created 

argument B Is integer length of A 
Storage addressed formerly as A is freed; then, if B > 0, vector 
A of length B is created. SPIREL monitoring for freeing or crea- 
tion of A is provided if SL14 is off. If SL14 is on, VSPACE takes 
"fast" space by bypassing XCWD(*126) . 
Errors : none 
Support: None 
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^CDUP, duplicate U, R to CSTAR 

Function: This routine takes a complex codeword in U, R and 
duplicates it into CSTAR, the complex non-scalar accumulator. It 
is used when complex arrays are subscripted to one level in GENIE. 

Support: CSTAR, complex non-scalar 
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-KX)MP, compression 
! Function: This routine performs compression of the library. 
It is never executed by a user, either manually or under program 
control . 

Execution: internal library use only — receives control 
from EDIT 

Errors: none 

Support: none 
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*-CSAV, save CSTAR on B6 list 

Function: This routine saves or duplicates CSTAR, the complex 
non-scalar accumulator, on to the B6 list. It is used for compli- 
cated complex non-scalar expressions in GENIE. 

Support: CSMT, complex non-scalar 
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*-CSWP f swap (Bl) , (B2) , or (Bl) + 1 to CSTAR 

Function: This routine swaps the codeword in CSTAR to (Bl) , 
(B2) , and changes the backref erence. (Bl) , (B2) is erased first 
if normal entry is used but not so if entry is at order 2. In the 
latter case, the input is assumed to be (Bl) and (Bl) + 1. It is 
used in complex non-scalar stores in GENIE. 

Support: CSTAR, complex non-scalar 
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-ENTRY, entry to library 

Function: This routine records information about entry to a 
library routine, the name of the routine and the PF setting. 
Execution: internal library use only 
Errors : none 
Support: constant -ELOC 
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«-ERPR, error print 

Function: This routine prints error message containing text 
from the calling program and information about the PF setting at 
time of the error. 

Execution: internal library use only, from all programs 
supplying error messages 

Errors : none 

Support: constant «-ELOC 
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•-EXEC/ Arithmetic Evaluator . 

Function: This routine carries out arithmetic operations 
called for by arithmetic statements input to CONSOL 

Execution: internal system use only, called by -IFE 

Errors : none 

Support: -TYPE, vector «-CT, FXEXP , FLEXP, -INOU 
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■«- INPUT , input/output 

Function: This routine does input and output from compiled 
programs to carry out DPUNCH, READ, PRINT, PUNCH, DATA, INPUT, 
J OUTPUT, DISPLAY, and ACCEPT commands in the Genie language. 

Execution: from Genie-generated code only — by TRA (not 
TSR) which may be traced 

I input (Bl) specifies operation: 0,1,2,3,4,5,6,7,10 for DPUNCH 
READ, PRINT, PUNCH, DATA, INPUT, OUTPUT, DISPLAY, ACCEPT 
respectively 
list of arguments one per word following TRA, terminated by 
null word; each word containing name in BCD and 
addressing information 
return to location following null word 
Monitoring of the input/output operation is provided if SL14 is 
off. 

Errors : none 

Support: programs INPUT, OUTPUT 
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-FETC, Interpreter Fetch 

Function: Used by «-IFE to fetch characters from *TEXT (174) 
Execution: Internal system use only. 
Errors : none 
Support : none 
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+-IFE, Interpretive Formula Evaluator 

Function: This routine performs statement scanning of 
arithmetic expressions input to CONSOL. 

Execution: Internal system use only. 

Errors: If illegal syntactic expression found, prints error 
message and returns to CONSOL. 

Support: -LASC, -LOOK, -TYPE, -FETC 

vector -CT. 
© Description of Use : 

Names : The name of any library subroutine may not be used 
for a private name. Also any 2 character sequence 
which is the mnemonic for a SPIREL command may not 
be used as a private name. All names are external 
system quantities, as they are on the Symbol 
Table (*113) . 
Type of Results : Floating point always takes precedence 
over fixed point. The type of a variable be- 
comes fixed when it first appears on the L.H.S. 
of an equation. Storing of an integer R.H.S. to 
a floating point L.H.S. will cause the integer 
to be floated before the store. However , a float- 
ing point R.H.S. will always be stored that way 
regardless of the type of the L.H.S. 
Arithmetic operators : The standard set of operators are 
available: 
binary: +, -, /, x( lower case x) 

Multiplication may be implied as in GENIE, when 
unambiguous. However if Al and B are names, A1B 
will not be taken as Al x B; but Al B will be, 
where the ' ' represents a space, 
unary: -, | |(abs. value bars), and Vindicates what 
follows is to be interpreted as an octal number) . 
LIBRARY March, 1968 
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Superscripts and subscripts are allowed following 

the standard GENIE conventions. 

B B 

NOTE: Genie interprets -A as (-A) . «-IFE in- 

■D 

terprets it the way it looks : - (A ) 
Functions ; Any library or user function may be executed 
implicitly in an «-IFE statement. Arguments may 
be scalar or non-scalar, but in no case may they 
be complex. «-IFE cannot operate in any case on 
complex quantities. 

For convenience of notation, functions may be raised 
to a power immediately after the function name and 
preceeding the ' (args) ' . For example 

A = SIN(X) 2 + COS(X) 2 

may be written as 

A = SIN 2 (X) + COS 2 (X) . 

However, this operation is meaningful only if. the 

function has a single, non-complex, scalar result. 

NOTE : For any function which has a single scalar 

parameter, that parameter will be floated before 

execution takes place. Therefore the function 
FLOAT may not be used in the *-IFE language. 

Explicit execution : A function may be explicitly ex- 
ecuted with args in the following manner. A 
dummy variable is used on the L.H.S. of a state- 
ment that would otherwise call for implicit 
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, execution. For example: 

A - TTAKE(B,5) 

will create a triangular matrix at B. 
If a function executed in this manner has a 
non-scalar result, and does not work in place, 
the. resulting array will be in USTAR (*10) . 
Summary and Further Comments : 

1) Type of variables: real or integer scalar only, 
except that real non-scalars may appear in 
function arguments. (A single element of a 
non-scalar is a scalar) . 

2) Rank of operations: 

+/ -f x, /, -(unary), | |, function call, I, t. 

3) Number format: 
integer: 5, 376 

real: .5, 5.1, 5.3*-3 

octal: +533 

4) Statement length: May not exceed four (4) lines 
on the display scope. 

5) Special Display Option: If the L.H.S. is a 
non-subscripted variable, an equal sign ('=«) 

if placed at the end of the statement will cause 
the value stored to be displayed on the scope. 
An HTR — will occur. Press continue to return 
to CONSOL COMMUNICATION LOOP. 

6) More than one statement may be included in a line, 
provided they are separated by a comma • , » . No 
interdependencies are accounted for. The statements 
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will be evaluated in the order in which they 
appear. For example: 

A = B+C =, F = SIN (A) =, G = G = 

will display A(=B+C) and then compute and 
display F, and display G. 

7) Other 1-0: 

Printing must be done with the standard SPIREL 
print command. There is no <-IFE equivalent 
to the GENIE -DATA statement. 

8) «-IFE statements and SPIREL commands may not 
appear on the same line. 

9) «-IFE and all associated programs are edited out 
of the library with EX EDIT. To keep them in 
such a system, a dummy API program must be in- 
cluded with a single REF to «-IFE. 
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«-LASC, Statement Scanner 

Function: Performs conversion to reverse polish of an 
arithmetic expression of the form accepted by «-IFE. 

Execution: internal system use only. 

Errors : none 

Support: -EXEC, vector «-CT 
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*-LOOK, check for special command 

Function: Used by «-IFE to look for special command sequences 
Executions internal system use only. 
Errors: none 
Support : none 
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+RDUP, duplicate U to *10 

Function: This routine takes a codeword in U and duplicates it 
into *10, the non-scalar accumulator. It is used when arrays are 
subscripted to one level in GENIE. 
Support: none 
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<-RSAV, save *10 on B6 list 

Function: This routine saves or duplicates *10 , the non-scalar 
accumulator, on to the B6 list. It is used for complicated non- 
scalar expressions in GENIE. 

Support: none 
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^-RSWP, swap (Bl) to *10 

Function: This routine swaps the codeword in 10 to (Bl) and 
changes the backreference. (Bl) is erased first if normal entry 
is used but not so if entry is at order 2. It is used in non- 
scalar stores in GENIE. 

Support: none 
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«-TYPE , determine shape of ST entry 

Function: Used by *-IFE and «-EXEC to determine shape of 
symbol table entry. 

Execution: internal system use only 

Error : none 

Support : none 
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MAINTENANCE 

• Punching 

The program EDIT is used for punching all library items. 
The punch procedure is: 

(1) Load SPIREL from paper tape or magnetic tape. 

(2) Load all necessary updates to the library routines — correc- 

tions, new versions of programs and new programs. 
I (3) Erase (ER at console) any programs to be deleted from the package, 

(4) Do not activate STEX or execute any program other than EDIT. 

(5) Execute from word 2 of the program EDIT with a control word 

to SPIREL, manually or off paper tape. 

(6) Initialization occurs — ST and VT indices set so that all 

entries have tag 1 and negative indices and last entry in 
use is at -0. ST and VT are alphabetized. 

(7) Punching of the package starts. Interrupt by turning on SL15 

when enough tape is punched. CONTINUE to resume punching. 
EDIT exits when punching is finished. 

(8) To check new punched tapes, load with SL15 on. 
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• Editing 

The program EDIT is used for updating the SPIREL library in 
memory or on magnetic tape. 
The edit procedure is: 
(1) Load SPIREL from paper tape or magnetic tape. 

Load all necessary updates to library routines, named and 
numbered ~ corrections, new versions of programs, and new 
programs . 

Do not activate STEX or execute any program other than EDIT. 
Execute from word 3 of the program EDIT with a control word 
to SPIREL, manually or off paper tape. 

(5) Initialization occurs — ST and VT indices set so that all 

entries have tag 1 and negative indices and last entry in 
use is at -0. 

(6) Control returns to the console communications loop, and the 

library is updated in memory. 

(7) Write on magnetic tape, if desired. 



(2) 



(3) 
(4) 
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MAGNETIC TAPE SYSTEM 
Introduction o 

Usage 

Manual READ 
Manual WRITE 
Programmed READ 
Programmed WRITE 

System Organization 

Public Systems Tape ............ 

Dynamic Dumping ... .......... . 

Tape Format „ 

Tape Preparation ..... 

MARK 
COPY 



INTRODUCTION 

The magnetic tape system provides areas on magnetic tape for 
storage of 24K memory loads of S PIREL-compa tib le systems. Reading 
and writing may be done both manually (from the console) and under 
program control, as for dynamic dumping of production runs. 

The tape is pre-marked into blocks numbered from 1 to 40 
(octal), each containing a full 24K memory load. Reading and 
writing operations are carried out by the magnetic tape system 
programs which are located at the high end of memory. There 
are four means of communication with the magnetic tape system: 

• in the SPIREL system (and the PLACER systems) from the con- 

sole entry at location 37 for manual read or manual 
write -- set (CC) = 37 and fetch 

• with the console bootstrap tape, BOOT, for manual read or 

manual write 

• by transferring to an octal location (57700) for programmed 

reading 

• by transferring to an absolute location (57701) for pro- 

grammed writing. 



USAGE 
• Manual READ 

From the console a memory load may be obtained from magnetic 
tape by the following procedure: 

1) Give the "MT i" command from the console or FETCH from location 

37 (octal) if the appropriate tape routines are in memory, 
or LOAD the bootstrap tape for the tape unit to be used. 
The magnetic tape system programs are read from tape, and 

the machine halts with an arrow in U. The current position 

(block number) is displayed in IL. 

2) If IL addresses the block desired, simply CONTINUE; otherwise, 

set SL to the desired block number and CONTINUE. 
The block will be read from tape and check summed . All lights 
and registers (except T7 ) will be restored to their values at 
the time the block was written. The control word, if any, 
provided when the block was written will be executed. Control 
will be returned to the console communication loop if the block 
was written with a manual WRITE or to the location immediately 
following the transfer to 57701 for a programmed WRITE. 

3) If an invalid block number is set into SL, SL will be cleared 

and the machine will halt again with the arrow in U. 
Go back to step 2) . 

4) If the designated block cannot be read, the machine will halt 

with NO in U. Go back to step 1) to try again. 
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• Manual WRITE 

From the console a memory load may be written onto magnetic tape 
Obtain the memory load by reading from magnetic tape or LOADing the 
"CLEAR" tape, then reading from paper tape as desired. All lights 
(except IL 10, 11, 12, 13 -- the tape search lights) and registers 
(except T7 ) will be stored on tape with the memory load and should 
be set as desired. The manual WRITE procedure is as follows: 

1) Give the "MT" command from the console or FETCH from location 

37 (octal) if the appropriate tape routines are in memory, 
or LOAD the bootstrap tape for the unit to be used. 
The magnetic tape system programs are read from tape, and the 

machine halts with an arrow in U. The current position (block 

number) is displayed in IL. 

2) Turn off "NOT WRITE" light on the transport to be used. 

3) Turn on SL , 

4) If you wish to have a control word executed when the block is 

read from tape, type it into U. 

5) If IL addresses the block desired, simply CONTINUE: otherwise, 

set the desired block number into the right end of SL and 

CONTINUE . 
The memory will be written at the designated block and control 
will be returned to the console communication loop. The control 
word to be executed when the block is read is not executed at 
this time . 

6) If an invalid block number is set into SL, SL will be cleared 

and the machine will halt again with the arrow in U. 
Go back to step 3) . 

7) If the block cannot be written without error, the machine halts 

with NO in U. The memory load is not destroyed. Go back 
to step 3) to try again. 

8) Turn on "NOT WRITE" light on the transport used. 
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Programmed READ 



From a program, contro 1 may be passed to the magnetic tape 
system to read a memory load or to go into the manual READ 
procedure . 

1) To read block K from magnetic tape, set (T7)=K and TRA to 

the programmed READ location, 57700. 
Operation continues as for manual READ, step 2) -- and 
halt with NO in U will show block which could not be read 
as current position in IL. 

2) To pass control to the manual READ procedure, set (T7)^0 

and TRA to the programmed READ location, 57700. 
Operation continues at step 2) in manual READ, with an 
arrow in U and current position (block number) in IL. 
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• Programmed WRITE 

From a program, the magnetic tape system may be used to dump 
a memory load, control then being returned to program after the 
write. The procedure is as follows: 

1) Code set (T7) 

TRA 57701 
[return after read] 
[return after write] 

2) The value (T7) = K, K > will cause block K to be written 

(T7) £ will cause halt with arrow in U and 

current position (block number) in IL; 
then set block number for write in SL 
and CONTINUE 

3) Control after write returns to second order beyond TRA to 

57701 with all registers restored, except (T7) which 

indicates action taken: 

(T7) = if write was successful 
(T7) =-1 if invalid block number given 
(T7) =-2 if successful write could not be per- 
formed 



ler 



4) Control upon subsequent READ of block goes to first ordi 

beyond TRA to 57701 -- no control word being executed 
and all registers but T7 as before WRITE. 



SYSTEM ORGANIZATION 

The magnetic tape system consists of the programs BOOT, CALL, 
MAIN, MARK, and COPY. 

BOOT is used to initialize the system from the console. With 
the LOAD switch it goes into memory at location 57400, searches 
tape backward to the nearest copy of CALL, reads CALL and trans- 
fers to it . 

CALL normally remains in memory at locations 57700 to 57777. 
The entry points for programmed operations are in CALL, as is the 
entry from BOOT. CALL saves all registers except T7 , CC , P2 , and 
S, then reads MAIN from magnetic tape and transfers control there. 
CALL tries five times to read the nearest MAIN without error; if 
this fails, it searches backward for the next MAIN to try again. 

MAIN normally remains in memory at locations 57400 to 57677. 
It controls the logic of positioning, reading, writing, handling 
tape errors, and unsaving. As in CALL, five attempts are made to 
do each read or write correctly. MAIN does not have to remain in 
memory. The standard end of allocatable memory for SPIREL is set 
at 57377. If the 300 words occupied by MAIN are required for dyna- 
mic allocation in a SPIREL system, the end of memory may be set to 
57700, allowing MAIN to be overwritten. In this case, a SPIREL 
REORGANIZATION of the STEX domain should be requested and location 
100 checked before writing to ensure that no information will be 
over-stored when MAIN is brought in for the WRITE operation. 

The memory arrangement used by the magnetic tape system is 
as follows : 

10-57377 dumped on and read from magnetic tape 

40-77 used by MT system to store fast and 

special registers 
57400-57677 MAIN program 
57700-57777 CALL program 



PUBLIC SYSTEMS TAPE 

A public systems tape for transport 3 is maintained by the 
Computer Project. It contains copies of the programming systems: 
J SPIREL and PLACER. Each user is assigned a block for storage of 
a private system. For the protection of all users, programmed 
writing is inhibited on the public systems tape. 

System tape maintenance involves three system tape reels. 
Tape A is in current use and is copied once a week. Tape B is 
0-1 week old, and tape C is 1 - 2 weeks old. 

Once a week tape A becomes tape B, tape B becomes tape C, and 
tape C is used for the new tape A. As much as possible of tape B 
is copied onto tape A. Blocks which cannot be read from tape B 
are written as zeros on tape A. 

If tape A becomes unusable, a new tape A will be copied from 
tape B. If tape A becomes unusable and tape B cannot be copied, 
tape C becomes tape B, and tape B may be copied as tape C to have 
three reels on hand. 

It may be necessary for a user to fill or update his block on 
a new system tape A. Users have access to tapes B and C for 
reading, NOT FOR WRITING, but this will not solve all problems. 
A user should always be able to regenerate his block from paper 
tape. 

At the time a new tape A is written re-allocation of blocks 
may be made on the basis of computer usage; watch for this so 
that you are always writing in your own block. 
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DYNAMIC DUMPING 

The magnetic tape system programs are easily used in a dump- 
tart procedure for a production package. Dumping may be cycled 
through a series of blocks, so that the past several dumps are 
always available. 

At each dump the date, time, and number of the dump along 
with any results of interest may be printed. P2 and T7 may be 
saved if these are necessary in the running program. After each 
dump control returns to the second order beyond the TRA to 57701, 
and the system may continue to run. 

Restart is accomplished by a manual READ, and control returns 
to the first order beyond the TRA to 57701. Initialization of any 
sort may be done, and then the system may continue to run. 



TAPE FORMAT 

The present system provides 40 blocks written in sub-blocks 
of about 10,000 words separated by markers as shown below. The 
number of blocks on the tape, the size of the segments, the total 
amount of memory written, and the logical transport on which the 
system runs may be changed by simple edits of the symbolic programs 
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TAPE PREPARATION 

• MARK 

The MARK program loads at location 57300, marks a system tape 
in the format described, fills all blocks with the same content, 
does not check for bad areas on the tape or for unsuccessful writ- 
ing. The system used as content for the blocks may not have memory 
in use above location 57277. 

To prepare a tape with MARK: 

1) either a) clear memory with the "CLEAR" tape and load 

SPIREL from paper tape 
or b) load SPIREL from magnetic tape 
or c ) load some other system, which you wish to have 

written in all blocks on the tape. 

2) Self-load CALL for the transport to be used; machine will 

stop with 

(I) : Z HTR Z 

3) Self-load MAIN for the transport to be used; machine will 

stop with 

(I) : Z HTR Z 

4) Self-load MARK for the transport to be used; machine will 

stop with 

(I): HTR 57300 

5) Turn off "NOT WRITE" light and CONTINUE. Tape will be marked, 

and machine will halt as for manual READ. Normally 
40 (octal) blocks are provided. The number of the block 
being written is kept in Bl, and the program may be 
stopped short of 40 blocks. 

Paper tape copies of CALL, MAIN, and MARK for transports 2 
and 3 are available in the programming office. 



TAPE PREPARATION 

2 
• COPY 

The COPY program loads at location 7000 and marks a tape in the 
format described. It writes each block on the new tape as directed 
by a control paper tape -- as a copy of a block on the old tape or 
blank. As each block on the new tape is written, it is checked for 
being written correctly and for being readable. "Bad spots" on 
the tape are detected and avoided. 

To prepare a tape with COPY: 

1) Mount the old tape as logical tape 3. 

2) Mount the new tape as logical tape 2 with the "NOT WRITE" 

light OFF. 
Self-load CALL for the logical unit on which the new tape 

will be used. 
Self-load MAIN for the logical unit on which the new tape 

will be used. 
Self-load COPY, and a HTR to the first instruction of COPY 

(at location 7000) will occur. 

6) Position control paper tape (format described below) in the 

reader . 

7) CONTINUE to location 7000 to rewind both tapes and start the 

copy procedure. Bypass the order at location 7000 to 
avoid rewinding the old tape which must be positioned 
before the first block to be copied. Bypass the order 
at location 7001 to avoid rewinding the new tape. In 
any case, the copy procedure is begun at location 7002 
by writing leader of markers 201 on the new tape. 

The copy procedure reads from the control paper tape for 
each block of the new tape. The number of the block 
being written is maintained in PF. 

If there is no paper tape in the reader, COPY will hang on a 
a read order and the control information for the block 
number shown in PF may be typed into U as it would have 
been read from the control paper tape. 



3) 
4) 
5) 



8) 



9) 
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10) All reads from the old tape are checked for parity and checksum; 

they are repeated until both are correct. Five read 
failures on the same sub-block (there are six in each 
block) will cause COPY to halt; three options are then 
avai lab le : 

(a) Pushing CONTINUE will cause writing of a sub- 

block of zeros instead of the copy from the 
old tape. The block will be readable, and 
the checksum correct. 

(b) Typing a number into B6 and fetching from FO 

will cause that number of further read 
attempts to be made. If they all fail, COPY 
will return to the same halt. 

(c) Typing a number into U and fetching from F3 

will cause the block with that. number on the 
old tape to be written instead of the one 
found unreadable. 

11) All writes on the new tape are checked for parity and word-to- 

word correspondence to what should have been written. 
After five unsuccessful writes, COPY fills the unwritable 
section with markers 200 and tries again. 

12) The copy procedure is terminated by simply letting COPY hang 

on a read paper tape order. 

The COPY control tape contains a directive for each block to 
be written on the new tape, these being given for blocks 1,2,... 
in order. Each directive consists of exactly three punches: 

cr NN 
where NN is the two-digit octal block number of the block to be 
copied from the old tape. If a block on the new tape is not to 
contain a copy of a block from the old tape but is to be written 
as zeros, punch NN as 00. 



